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PREFACE 



This Program Logic Manual (PLM) is a de- 
tailed guide to the internal structure of 
the 1130 RJE Work Station Program. It 
supplements the program listings by pro- 
viding descriptive text and flowcharts; 
program structure at the machine instruc- 
tion level is not discussed,. 

This PLM is divided into three main 
sections : 

Physical Organization: This section 
describes the different modules and 
their relationship. System 
Generation is also included in this 
section. 

System Overview: This section gives 
a general overall view of how the 
system works. 

Logical Organization: This section 
describes in detail the functions of 
each subroutine. The flowcharts are 
presented after the subroutines and 
are referred to by chart ID. 



Diagrams and tables concerning the work 
station program are presented in the 
appendixes. 

Prerequisite and Related Literature 

The following IBM publications provide 
information helpful in the effective use of 
this manual: 

IBM System/360 Operating System 
Remote Job Entry , Form C30-2006. 

IBM System/360 Operating System 
Remote Job Entry, Program Logic 
Manual , Form Y30-2005. 

IBM 1130 Subroutine Library , 
Form C26-5929. 
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INTRODUCTION 



Remote Job Entry (RJE) of the IBM System/ 
360 Operating System (OS/360) allows users 
to submit jobs via communication lines into 
the job input stream from remote terminals. 
The job entry facilities of RJE are the 
same as those available at the central 
computing installation itself — job defini- 
tion and execution, data set creation, 
access, and maintenance. In fact, any of 
the elements that can be entered into the 
job stream at the central location can also 
be entered at a remote terminal under RJE. 

Remote Job Entry controls a flow of data 
and processes that data as required. Data 
entered from remote sources is the primary 
input to the RJE system and consists of job 
entries and commands. Commands may also be 
entered by the central operator. Jobs 
submitted by remote users are passed to 
OS/360 for scheduling and execution. When 
the output from these jobs becomes avail- 
able, it is returned to the user as 
specified — either immediately or on request. 



An IBM 1130 Computing System may be used 
as an RJE work station. The 1130 work 
station requires an 1131 CPU (Central Pro- 
cessing Unit) , including a console printer- 
keyboard, with a single disk storage drive 
and at least 8K words of core storage. The 
system is connected to a 1200-2400 bit-per- 
second line via a Synchronous Communica- 
tions Adapter in binary mode. Three 
special features are required: (1) card 
reader, (2) card punch, and (3) line 
printer. 

The principal function of the 1130 RJE 
program is input and output; that is, the 
interface .between the telecommunication 
subroutine and the I/O devices. 

This document describes the programming 
logic of the remote work station written 
for the 1130 using Binary Synchronous 
Communications (BSC) under the Disk Monitor 
System Version 2. 



Introduction 



PHYSICAL ORGANIZATION OF THE 1130 RJE WORK STATION PROGRAM 



SYSTEM GENERATION 

The 1130 RJE support consists of two 
programs, RJE00 and RJE. The RJE00 program 
is the generation program. The RJE program 
consists of one initializing mainline pro- 
gram (RJQST) and eight LINKs. Each LINK 
consists of a mainline program and a set of 
subroutines constituting the actual RJE 
program for a specific configuration of the 
remote station. 

The RJE00 program provides the user with 
the ability to change the line information. 
This information is located in a disk data 
file named RJCON (see Appendix B) . The 
file contains information about the type of 
line and about user-reserved space on disk 
for user-exit data. This information is 
used later so that the correct subroutines 
for the particular installation specified 
will be loaded into core to build the RJE 
program. This file must be updated when- 
ever any of the information changes. The 
function of RJE00 is to update the file 
RJCON. 

The RJE program is loaded by using the 
usual 1130 Disk Monitor control cards. 
Program control is given first to a program 
named RJQST. This program reads, from disk 
files, information describing the remote 
configuration and, according to this in- 
formation, the subroutines needed to build 
the work station dependent RJE program are 
loaded into core, overlaying RJQST. 

RJQST executes one of eight LINK in- 
structions depending upon the principal I/O 
device, principal print device, and whether 
the line is point-to-point or multipoint. 
The LINK instruction that is executed 
brings into core the interrupt service sub- 
routines (ISS) needed by this configuration 
and also one of eight mainline programs 
(RJLOn) . When the. Core Load Builder and 
Core Image Loader brings the RJLOn program 
into core, all subroutines referenced in a 
dummy CALL list are also brought in along 
with RJLOn, overlaying RJQST.. RJLOn 
changes the CALL list to an address table. 
It is in this way that the RJE program is 
loaded and ready to go, regardless of the 
configuration of the particular install- 
ation. 

The 1130 RJE Work Station Program uses 
various ISS (available in the 1130 sub- 
routine library) to transfer data to and 
from the various input/output devices 
attached to the computer. These sub- 
routines handle all the details peculiar to 



to each device, including the complex 
interrupt functions. Control is trans- 
ferred from the main program to the sub- 
routine by a set of instructions known as a 
calling sequence, or basic linkage. A 
calling sequence transfers control to a 
subroutine and, through parameters, gives 
the subroutine any control information 
required. Each calling sequence used with 
subroutines in the 1130 system consists of 
a CALL or LIBF statement (whichever is re- 
quired to call the specific subroutine) , 
followed by the declare (DC) statements 
that make up the parameter list. Each sub- 
routine is self-contained; only those sub- 
routines required by the current job are in 
core storage during execution. (See IBM 
1130 Subroutine Library , Form C26-5929) . 

The 1130 RJE Work Station Program pro- 
vides the standard interface to the RJE 
communications network by using SCAT2 and 
SCAT3 Binary Synchronous Communications 
subroutines. The SCAT2 subroutine controls 
the 1130 Synchronous Communications Adapter 

(SCA) during point-to-point operation in 
Binary Synchronous Communication (BSC) 
mode. The SCAT3 subroutine controls the 
1130 Synchronous Communications Adapter 

(SCA) during multipoint operation in BSC 
mode. In multipoint, centralized operation, 
the SCAT3 subroutine permits the 1130 to 
operate only as a tributary station. Error 
checking performed by SCAT2 and SCAT3 sub- 
routines consists of a 16-bit Cyclic Redun- 
dancy Check (CRC-16) . These subroutines 
also use the alternating acknowledgment 
method for protection against the loss of 
blocks of data. (See IBM 1130 Synchronous 
Communications Adapter Subroutines , Form 
C26-3706.) 

The printer subroutines used are PRNT2 
and PRNT3. The PRNT2 subroutine handles 
all print and carriage control functions of 
the IBM 1132 Printer and permits concurrent 
operation of the 1132 Printer and the 
Synchronous Communications Adapter. Only 
one line of data can be printed or one 
carriage operation executed with each call 
to the printer subroutine. The data in the 
output area must be in EBCDIC form, packed 
two characters per word. The PRNT3 sub- 
routine handles all print and carriage con- 
trol functions for the 1403 Printer. Only 
one line of data can be printed and/or one 
carriage operation executed with each call 
to the printer subroutine. (See IBM 113 
Subroutine Library , Form C26-5929, and IBM 
1130 Synchronous Communications Adapter 
Subroutines, Form C26-3706.) 



Physical Organization 



The CARD1 subroutine performs all I/O 
functions for the IBM 1442 Card Read Punch: 
reading, punching, feeding, and stacker 
selection. The 1130 RJE Work Station Pro- 
gram uses it to read cards and to punch 
cards. It has an error parameter and can 
detect errors. 

The READ1 subroutine is used for opera- 
tion of the 2501 Card Reader. It has an 
error parameter and can detect errors. 

The PNCH1 subroutine is used to perform 
all I/O functions for the IBM 1442-5 Card 
Punch, that is, punch and feed. 

DISKZ is the subroutine used for disk 
I/O functions. The DISKZ subroutine offers 
no file protection, no preoperative para- 
meter checks, no write immediate function, 
and no write without readback check 
function. This subroutine is designed to 
operate in an error- free environment. 

The TYPEO subroutine handles the trans- 
fer of input and output to and from the 
console printer and keyboard. (See IBM 
1130 Subroutine Library , Form C26-5929.) 



MODULES 



The 1130 RJE Work Station Program con- 
sists of three modules: DIRECTOR, INTRAN, 
and REVOUT (see Appendix A) . The DIRECTOR 
exercises control over the other two 
modules and provides services for them. 
Through its monitoring functions, it exer- 
cises control over all input from the work 
station I/O devices and receipt of output 
from the central system by passing control 
to the proper subroutines to handle these 
functions. The mainline program RJLOn, and 
the following subroutines make up the 
DIRECTOR module: BEGIN, CNTRL , RJREQ, 
RJMSG, RJFIN, WSCAT, CLOSE, NLTYP , RWDSK. 

The input transmission module, INTRAN, 
reads all input from the I/O devices, does 
some checking, and transmits the input to 
the central system. It is composed of the 
following subroutines: WRITE, RJINP, 
CRDRD, RJKBD, RJDSK , RJCHK. 

The receive output module, REVOUT, re- 
ceives output from the central system and 
puts it to the appropriate output device 
or directs it to the user-exit subroutine. 
This module consists of the following sub- 
routines: READ, RJHDR, RJOUT, PRNTR, 
PUNCH, UEXIT. 
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SYSTEM OVERVIEW 



Initial control is given to the initial- 
izing mainline program, which establishes 
the configuration of the remote station 
and, according to this information, exe- 
cutes one of eight LINK instructions. This 
mainline program then sets up the address 
table and inserts the branch address for a 
level 5 interrupt. By the time the load 
program gets control, all the subroutines 
needed to build the 1130 RJE Work Station 
Program are in core. 

The BEGIN subroutine reads the first 
card in the card reader. It must be an 
RJSTART command. This is the only command 
that is sequence checked. It must be the 
first command in the card reader at work 
station startup and after a permanent line 
error. The RJSTART command is valid only 
when submitted from the card reader. If it 
is in error or missing, a message is sent 
to the operator so that he can submit a 
correct RJSTART command from the card 
reader. After a correct RJSTART command 
has been read, the line is initialized and 
the RJSTART is transmitted over the line to 
the central system. If the central system 
does not accept the RJSTART command, an 
EOT will be sent in response. The 1130 
program will issue the following message to 
the operator: "J2 3 INPUT ABORTED BY 
CENTRAL." The central system then will 
send a message indicating what is wrong 
with the RJSTART command. The operator 
must put a correct RJSTART card in the card 
reader. 

When an RJSTART is accepted, the re- 
maining cards, up to a job entry or end-of- 
file indicator, are read and transmitted to 
the central system. Then the control sub- 
routine (CNTRL) sends an EOT to the central 
system and waits for a response. An ENQ 
from the central system on a nonswitched or 
switched point-to-point line, or an 
addressing sequence on a multipoint line, 
indicates that the central system has out- 
put to send and control is given to the 
READ subroutine to receive this output. An 
EOT from the central system on a switched 
line, a timeout on a nonswitched line, or a 
polling sequence on a multipoint line in- 
dicates that the central system does not 
have any output at this time. In this case 
the control subroutine checks its input 
program switches for more input. If 
neither of the input switches are on, the 
central system is checked again for output. 
Communications are maintained on a switched 
line by exchanging EOTs. If no output is 
indicated the second time, the input 



switches, are checked again; this loop con- 
tinues until either input or output is in- 
dicated. 

If either the card reader or keyboard or 
disk input switch is on, control is given 
to the WRITE subroutine, which selects the 
I/O device that is ready with input. The 
subroutine for the particular device reads 
the input. If the input is from the card 
reader or disk, it is blocked and placed in 
a line buffer until the buffer is full. 
The data-link control characters necessary 
for BSC transmission are appended to the 
contents of the buffer; then the input is 
transmitted to the central system. 

Efficient data transfer is accomplished 
by using two buffers assisting in over- 
lapping I/O. That is, when buffer A is 
filled with input it is written to the 
line. Buffer B then is filled while the 
program is waiting for the completion of 
the line operation. A correct, completed 
line operation causes buffer B to be 
written to the line and buffer A to be 
filled again. The input is transmitted in 
this way until a complete job entry has 
been sent (only true for point-to-point 
configurations), or an end-of-file is en- 
countered in the input stream. 

A limited amount of checking is done on 
input from the card reader and disk. The 
following cards are recognized: RJSTART, 
RJEND, JED, JOB, ..(null), // DD Data, /* , 
and . . DATA . Most of the checking is per- 
formed to set program switches. The 
. . (null) card is an end-of-file indicator. 
It causes reading to stop and an EOT to be 
transmitted to the central system from the 
control subroutine. Only the first JOB or 
JED cards are recognized in a multipoint 
configuration. After each job (except in a 
multipoint configuration) control is re- 
turned to the CNTRL subroutine so that an 
EOT can be sent and available output re- 
ceived. Also, once a // DD Data card is 
recognized, no other cards are recognized 
until after a /* is read. 

If the input is from the console key- 
board, the command is extended with blanks 
to an 80-character record, and the commands 
are transmitted one at a time to the 
central system. Since commands are the 
only valid input from the console keyboard, 
a check is made for the identifying char- 
acters . . in positions 1 and 2 followed by 
at least one blank. If these are not 
present an error message is written to the 
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All transmission of input from the con- 
sole keyboard is done in slow input mode. 
This means that a 'D' heading* (to set slow 
input mode) is sent before any of the in- 
put is transmitted and a ' R' heading* (to 
reset slow input mode) is sent when all the 
commands from the console keyboard have 
been transmitted. 

When an RJEND command is recognized, 
program switches are set to indicate a sys- 
tem closedown. The CNTRL subroutine sends 
an EOT to the central system and waits for 
a reply. At this time the central system 
will send all pending messages. On a 
switched line the central system sends a 
'5' heading* followed by a DLE/EOT. This 
indicates that the RJE program is to be 
terminated. On a nonswitched line, the '5' 
heading is followed by an EOT only. 

If the central system indicates that it 
has output to send, control is given to the 
READ subroutine for receipt of this output. 
A read is issued on the line to obtain the 
output. Each physical record is tested for 
a heading*. All job output from the 
central system should be preceded by a 
heading.* Therefore, the first record 
received from the central system should be 
a heading; if it is not, the output is 
printed at the line printer until a heading 
is received that directs the output to a 
specific I/O device. A heading contains 
information indicating the record size and 
format of the output and also the device 
for this output. All output received after 
the heading is directed to the device 
selected until a new heading, redirecting 
the output, is encountered. 

After a heading has been received and 
processed by the header routine (RJHDR) , 



the remaining output is read from the 
central system; one buffer is filled while 
the second buffer is written to an output 
device, thus overlapping line operations 
and local I/O operations. Each record from 
the central system is checked by the 1130 
program to determine if it is a heading. 
This is necessary since the output device 
can be changed during a transmission. The 
output is deblocked and written on an out- 
put device. Forms-control characters may 
be contained in the output, and are used if 
they are present. Control characters are 
recognized to, the extend supported by the 
1130 Disk Monitor System subroutines and 
the hardware. If the heading specifies 
that the data is to go to the printer with- 
out control characters, a skip to channel 1 
is executed. BSC control characters are 
removed from the output by leaving them in 
the buffer and just removing the text. 
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Central output may be discontinued at 
any time by following the operator communi- 
cation procedure (see section on Operator 
Communication Request Subroutine) . If the 
operator or the UEXIT subroutine (because 
of disk error) has requested that output be 
discontinued, control is returned to the 
discontinue output procedure in the CNTRL 
subroutine. 

When an EOT is received from the central 
system, return is given to the CNTRL sub- 
routine. 

Note : All subroutines have the attributes 
of being serially reusable and relocatable. 
The following mainline programs are only 
relocatable: RJE00, RJQST, and RJLOn. 



See Appendix E 
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GENERATION PROGRAM (RJEOO) 



RJCON is a disk data file which contains 
information about the type of communication 
line and about user- reserved space on disk 
for user-exit data, if any. It may be 
necessary to change the data file contents 
before the 1130 system can be used for RJE. 
The data file must be updated whenever any 
information changes. The user supplies 
this information by executing the program 
RJEOO. If this program is not executed the 
first time, the RJE work station assumes a 
nonswitched, point-to-point line and no 
reserved disk space. After information has 
been written in the file or assumed, the 
RJEOO program need not be executed unless 
the information changes. The information 
will be used later to insure that the 
correct subroutines for that particular 
installation are loaded into core to build 
the RJE program. 

PROGRAM NAME . RJEOO (Charts AA and AB) 

ENTRY POINT . RJEOO is the only entry 
point. This program is loaded and executed 
by the following control card: 
// XEQ RJEOO 

FUNCTION . RJEOO reads from the principal 
I/O device the card following the // XEQ 
card. This card must contain either the 
line information and/or the user-exit re- 
served space addresses that are to be 
written on the disk data set, RJCON, or the 
card must be blank. This configuration 
description card is printed out at the 
console printer. If this card contains in- 
valid information, the message "J01 INVALID 
CARD" is written on the console printer and 
the system exits to the Disk Monitor Super- 
visor. In this case the operator must re- 
start the generation and enter a valid 
card. 

The card that follows the // XEQ card 
may specify one or both of the following 
parameters. If both are specified they may 
be in any order, but must be separated by a 
comma . 



LINE=P 
LINE=S 
LINE=M(x,y) 



UEXIT= (address l,address2) 



Line Information: 

P indicates a nonswitched, point-to- 
point line 

S indicates a switched, point-to-point 
line 

M indicates a multipoint line where 

x is the polling character 
y is the selection character 

UEXIT Information: 

addressl starting address on disk for 

storing of data 
address2 ending address on disk for 

storing of data 

The format of addressl and address2 is xaaa , 
where 

x is the logical drive number 
aaa is the sector address (in hexa- 
decimal) 

If the LINE parameter is omitted, the 
line information is not changed. If the 
UEXIT parameter is omitted, no space is 
reserved on disk for user-exit data. 

The information on this card is written 
in the file RJCON on the disk. The first 
word will contain the type of line. 
Polling and selection characters, if any, 
are put in the second and third words. If 
the UEXIT parameter is specified, the 
addresses are put in the fifth and sixth 
words . 

Four different buffers are used: an 80- 
word card input buffer (CRDIN) , a 320-word 
disk buffer (RJCON) , a 40-word print buffer 
(PRINT) , and an 80-word work area (SPDUT) . 
These are all located within this program. 



EXTERNAL SUBROUTINES. 



EXITS. 



None 



Normal: Disk Monitor Resident Supervisor 
Error : None 

Note : This program uses the principal I/O 
device and print device for reading and 
printing. The first four words of the pro- 
gram hold the identification 
FFFFFFD9D1C5F0F0 . 
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LOGICAL ORGANIZATION OF THE 1130 RJE WORK STATION PROGRAM 



INITIALIZATION OF WORK STATION PROGRAM 



Initialization of the 1130 RJE Work 
Station Program at system startup is per- 
formed by two mainline programs and one 
subroutine: 

RJQST 

RJLOn 

BEGIN 

This section contains a description of 
these programs and the subroutines . 

Initializing Program 

PROGRAM NAME . RJQST (Chart BA) 

ENTRY POINT . RJE is the only entry point. 
Control is first given to this program 
(RJQST) when the 1130 RJE Work Station Pro- 
gram is executed by the following 1130 Disk 
Monitor control card: // XEQ RJE. 

FUNCTION . This program reads line infor- 
mation from the disk data set RJCON, and 
reads principal device information from 
DCOM, which is located on disk. Together 
this information forms the configuration of 
the 1130 RJE Work Station Program. Accord- 
ing to this configuration, the subroutines 
needed to build the work station dependent 
RJE program are loaded into core, over- 
laying RJQST. This is accomplished by the 
execution of one of eight LINK instructions. 
There is one LINK instruction for each 
possible configuration of an 1130 RJE Work 
Station Program. The calling sequence is 
LINK RJLOn, where n stands for 1, 2, 3, 4, 
5, 6, 7, or 8. One of the eight LINK in- 
structions is executed depending on the 
type of line, the principal input device, 
and the principal print device. Associated 
with each LINK instruction is a list of 
dummy CALL statements that contain the sub- 
routines necessary for this particular work 
station program. When the RJLOn program is 
loaded, all the subroutines listed in the 
CALL statements associated with this RJLOn 
program are also loaded. 



The LINK table is as follows: 

LINK table system subroutines included 
in Work Station 

LINK RJL01 SCAT2, PRNT3, CARD1 

LINK RJL02 SCAT3, PRNT3, CARD1 

LINK RJL03 SCAT2, PRNT2 , CARD1 

LINK RJL04 SCAT3, PRNT2 , CARD1 

LINK RJL05 SCAT2, PRNT3, READ1 , PNCH1 

LINK RJL06 SCAT3, PRNT3 , READl , PNCH1 

LINK RJL0 7 SCAT2, PRNT2 , READl, PNCH1 

LINK RJL0 8 SCAT3, PRNT2 , READl, PNCH1 

If the printer or card reader specified 
in the DCOM is an invalid device, "J10 
INVALID PRINTER" or "Jll INVALID READER" 
will be written at the console printer. 
The RJE program then exits to the Disk 
Monitor. The operator may restart the RJE 
program after assigning a correct printer 
or card reader as the principal device. 

A 320-word buffer (DAREA) is provided for 
use in reading from disk. If an error 
occurs in trying to read DCOM or RJCON, the 
message "J14 DISK ERROR OCR=" will be 
written at the console printer. The next 
action depends on the operator response. 
He may reply in either of two ways: X (exit 
to the Disk Monitor) or T (terminate pro- 
cessing by exiting to the Disk Monitor and 
dumping core) . 



EXTERNAL SUBROUTINES. 



EXITS. 



None . 



______ Normal: One of eight LINK RJLOn 

where n could be 1, 2, 3, 4, 5, 6, 7, or 8. 
Error: EXIT or terminal DUMP entry points 
in Disk Monitor Resident Supervisor 
according to 'response given on message. 

Note : The first four words of the program 
contain the identification 
FFFFFFD9D1C50000 . 
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Load Program 

PROGRAM NAME . RJLOn (Chart CA) 

Note : This description applies to the pro- 
grams named RJL01 - RJL0 8, the only dif- 
ference being the device subroutines that 
are indirectly referenced. The first four 
words of the program hold the identifi- 
cation FFFFFFD9DlD3F0Fn, where n is a 
number in the range 1 through 8. 

ENTRY POINT . RJLOn 

FUNCTION . When the Core Load Builder and 
Core Image Loader bring the RJLOn program 
into core, all subroutines referenced in 
the dummy CALL list are also brought into 
core. This CALL list is sufficient to 
describe the configuration of the RJE work 
station. The RJLOn program changes the 
CALL list to an address table, by taking 
the entry point address of each subroutine 
from the Transfer Vector Table and placing 
this address in the second word of the CALL 
statement for that subroutine. The second 
word of the CALL statement is then equated 
to a general name. When this general name 
is referenced in other subroutines, the 
subroutine at this address will automati- 
cally be the correct one. Thus, the list 
of CALL statements becomes a table of entry 
points to the subroutines in the 1130 RJE 
Work Station Program. The parameter list 
used in the user-exit subroutine is located 
at the beginning of the table. Index 
register 1 always points to the beginning 
of the table and is used for all references 
to that table. The contents of register 1 
are stored in the first word of the RJREQ 
subroutine. 

The branch address for a level 5 inter- 
rupt (see RJREQ subroutine) is inserted in 
the Disk Monitor Resident Supervisor. 

Register 3 must be saved and restored, 
in order to preserve its contents, since it 
is used in calling the system subroutines. 

This program also contains program 
switches used by several subroutines. 

EXTERNAL SUBROUTINES . None. 

EXITS . Normal: BEGIN subroutine, RJBGP 
for point-to-point lines and RJBGM for 
multipoint lines. 
Error: None. 

Communication Startup Subroutine 

SUBROUTINE NAME . BEGIN (Charts DA, DB and 
DC) 

Note : The logic of the subroutine for 
point-to-point configuration and for multi- 
point configuration is essentially the same. 



ENTRY POINTS . 

RJBGP - for point-to-point configuration 



RJBGM 



for multipoint configuration 



FUNCTION . On initial entry to this sub- 
routine, user-exit area, addresses are moved 
from the file RJCON to the RJLOn program. 
In a multipoint configuration, the select- 
ion and polling characters are also ob- 
tained from RJCON and stored in the RJLOn 
program. Addresses to these characters are 
given to the CNTRL subroutine used for 
multipoint configurations (RJCM3 - entry 
point) . 

The BEGIN subroutine may also be entered 
as a result of a restart condition. 

The first card is read from the card 
reader and must be an RJSTART command. If 
it is not an RJSTART command, "J2 RJSTART 
MISSING" is sent to the operator, who must 
resubmit a valid RJSTART command at the 
card reader. An RJSTART command is accepted 
only from the card reader. 

After an RJSTART command has been read, 
the line is initialized and the command is 
transmitted immediately on a point-to-point 
line or on a multipoint line when the work 
station is polled. If the data set is not 
ready on a switched line, the message 
"ESTABLISH LINE CONNECTION" is written at 
the console printer indicating to the 
operator that he must dial the central sys- 
tem. If the RJSTART command is accepted by 
the central system, any cards in the card 
reader up to and including a JED card, JOB 
card, or . . (null) card are read. All of 
these cards are transmitted to the central 
system except the last one, which remains 
in the card input buffer (RD420) . 

Then an 'R' heading is sent over the line 
to reset slow input mode, which may have 
been set if the work station program 
terminated abnormally in a previous run. 

A switch is set in a multipoint environ- 
ment before the exit, suppressing any 
checking for JOB or JED cards in the input 
stream in order to avoid turnaround of the 
line between jobs. 

EXTERNAL SUBROUTINES . 

RJMSG - prints the following messages 
when they apply : 

"J20 RJSTART MISSING" and 
"ESTABLISH LINE CONNECTION." 

RWDSK - reads information from the file 
RJCON. 
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RJCP2 - for point-to-point configura- 
tion and RJCM2 for multipoint 
configuration (CNTRL) - sends 

S E 

R T on line to central. 

H X 

RJCM3 - (CNTRL) - gives the CNTRL sub- 
routine access to polling and 
selection characters in a 
multipoint line configuration. 

WSCAT - waits for operation completion 
on the line. 

RJTWP - for point-to-point configuration 
and RJTWM for multipoint con- 
figuration (WRITE) - sends com- 
mands to the central system. 

RJINP - selects the input device and 

then branches to the read sub- 
routine for that device. 



EXITS. Normal: CNTRL subroutine 



RJCNP 



to send EOT and to determine the next 
action in a point-to-point configuration, 
and RJCNM to send EOT and to determine the 
next action in a multipoint configuration. 
The Accumulator (ACC) and the transmit EOT 
indicator (TMEOT) must be nonzero. 
Error: RJMSG with message code=l to indi- 
cate disk error or with message code=9 to 
indicate line error. 



CONTROLLING SUBROUTINE (CNTRL) 



This is the main subroutine of the DIREC- 
TOR. It sends headings and EOTs, and checks 
responses from the central system. Program 
control decisions are the major function of 
the control subroutine. These decisions 
are made by interrogation of the program 
switches for local input devices and 
monitoring the line for output. The con- 
trol subroutine of the DIRECTOR delegates 
program control, on the basis of the pro- 
gram switches, to either the transmit sub- 
routine of INTRAN or the receive subroutine 
of REVOUT. 

SUBROUTINE NAME . CNTRL (Charts EA, EB , EC, 
ED, EE, EG, and EH) 

Note : CNTRL is the symbolic name used for 
the entry points RJCNP and RJCNM. RDRER is 
the symbolic name used for the entry points 
RJCP1 and RJCM1. RHDNG is the symbolic 
name used for the entry points RJCP2 and 
RJCM2 . 



ENTRY POINTS . 

RJCNP - entered when an EOT is received 
or is to be sent (point-to- 
point configuration) . 

RJCNM - entered when an EOT is received 
or is to be sent (multipoint 
configuration) . 

There are four conditions under which 
entrance may be made. 

1. Normal end of transmission after 
output is received: Accumulator 
zero. 

2. Discontinue input request by the 
central system: Accumulator 3 
nonzero and ABO RT=non zero. 

3. Normal end of transmission after 
input is sent: Accumulator 3 
nonzero, TMEOT=nonzero , and 

ABO RT= zero. 

4 . Discontinue output request by 
operator or program: Accumulator 3 
nonzero, DSCON=nonzero , ABORT= 
zero, and TMEOT=zero. 

RJCP1 - entered when a card reader 

error has occurred (point-to- 
point configuration) . 

RJCM1 - entered when a card reader 

error has occurred (multipoint 
configuration) . 

RJCP2 - entered when SOH R ETX is to be 
sent (point-to-point configura- 
tion) . 

RJCM2 - entered when SOH R ETX is to be 
sent (multipoint configuration) . 

RJCM3 - (multipoint configuration) 

entered from BEGIN to give the 
communication subroutines 
access to the polling and 
selection characters. 

FUNCTION . This subroutine receives control 
each time there is to be a change in the 
direction of transmission on the line. 

When this subroutine is entered from the 
line initialization subroutine (BEGIN) or 
from the WRITE subroutine, an EOT is sent 
over the line and the response from the 
central system is checked. If an ENQ is 
received, an exit is made to the READ sub- 
routine for receipt of the output. On a 
multipoint line, output is indicated by an 
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addressing sequence from the central 
system. No output is indicated by a time- 
out on a nonswitched line, an EOT on a 
switched line, or a polling sequence on a 
multipoint line. 

If no output from the central system is 
indicated, the CNTRL subroutine then checks 
its switches for input from the card 
reader or console keyboard. If either of 
these indicators is on, control is given to 
the WRITE subroutine to start writing to 
the line, except in case of keyboard input 

S E 
when a D T heading is first sent over 
H X 

the line to indicate slow input mode. 

When neither of the input indicators is 
on, the central system is again checked for 
output. Communications with the central 
system are maintained on a switched line by 
exchanging EOTs . If no output is indicated 
again, the input indicators are checked 
again, and this loop continues until either 
input or output is indicated. 

When the CNTRL subroutine is entered 
from the READ subroutine and the discon- 
tinue output indicator (DSCON) is set, an 
EOT is sent as a response to the last 
block received before the CNTRL subroutine 
looks for input to transmit. 

When the indicators show that the in- 
put was aborted by the central system, the 
CNTRL subroutine turns off the card input 
and console-keyboard input indicators and 
resets some of the program switches before 
checking for output. 



error occurs on a point-to-point line, this 
procedure sends a 'D' heading over the 
line, followed by an EOT; then a message is 
written to the operator and an 'R' heading 
is sent, followed by an EOT. In every 
case , the next action depends upon the 
operator response to the message. On a 
multipoint line, an EOT is sent over the 
line and a message is written to the oper- 
ator. The procedure is different for disk- 
output errors. On a point-to-point non- 
switched line an EOT is sent to discontinue 
output and the error message is written to 
the operator. On a point-to-point switched 
line, an EOT is sent to discontinue output 
and a 'D' heading is sent, followed by an 
EOT; then the message is written to the 
operator, followed by an 'R' heading and an 
EOT. On a multipoint line, an EOT is sent 
to discontinue output and the error message 
is written to the operator. 

EXTERNAL SUBROUTINES . RJTWP for point-to- 
point configuration and RJTWM for multi- 
point configuration (WRITE) - sends 
commands and job entries to the central 
system. 

RJTRP for point-to-point configuration and 
RJTRM for multipoint configuration (READ) - 
reads output from the central system. 
WSCAT - waits for completion of line 
operation. 

RJMSG - writes messages for disk errors, 
i.e., codes 10, 11, and 12. 
CLOSE - resets the Communications Adapter 
(only in multipoint configuration) . 

EXITS . Normal: RJFIN with Accumulator = 

zero. 

Error: RJMSG with message code = 9 for 

line errors. 



The card reader error subroutine is 
entered at RJCP1 (RJCM1 for multipoint con- 
figuration) . It is placed in the CNTRL 
subroutine because it uses the 'D' and ' B." 
heading procedures. RJCP2 (RJCM2 for 
multipoint configuration) is entered to 

S E 
send the R T heading to reset the slow 
H X 

input mode. 

In multipoint there is an extra entry 
point, RJCM3. The CNTRL subroutine is 
entered at this entry point from the BEGIN 
subroutine at the work station startup to 
give the communication subroutines access 
to the selection and polling characters. 

When a disk error occurs, a procedure in 
the CNTRL subroutine sends a certain 
sequence, depending on the configuration, 
to the central system. When a disk input 



TRANSMITTING INPUT (INTRAN) SUBROUTINES 



The basic function of INTRAN is to read 
input from an I/O device at the 1130 
Remote Work Station and send it as input to 
the central system. INTRAN supplies five 
services in- support of this concept: 
reading from the card reader, reading from 
the console keyboard, reading from a disk 
storage unit, blocking records for trans- 
mission, and sending blocked records to the 
central system. 

INTRAN is divided into six subroutines 
that perform its functions: 

WRITE 
RJINP 
CRDRD 
RJKBD 
RJDSK 
RJCHK 
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A detailed description of each sub- 
routine follows. 

Transmit Subroutine 

SUBROUTINE NAME . WRITE (Charts FA, FB , FC 
and FD) 

Note : The following description is valid 
for both point-to-point and multipoint con- 
figuration subroutines. 

ENTRY POINT . 

RJTWP for point-to-point configuration. 
RJTWM for multipoint configuration. 



FUNCTION. This subroutine reads 80- 
rds from the 1130 input 
reader, disk, console key- 
tes them to the communi- 

Two 404-word buffers (RJTB1 
point-to-point lines; RJTB3 
multipoint lines) located in 
in overlapping reading from 
device and writing to the 



character reco 
devices (card 
board) and wri 
cations line, 
and RJTB2 for 
and RJTB4 for 
READ are used 
a local input 
line. 



When a line error is detected, an exit 
is made to RJMSG with message code = 9 to 
write the message to the operator. 

If an EOT is received in response to the 
text, the subroutine sets the Accumulator = 
nonzero and ABORT = nonzero so that upon 
return to the CNTRL subroutine the abort 
procedure is executed. 

EXTERNAL SUBROUTINES . 

RJINP - selects device that has input. 
WSCAT - waits for completion of line 
operation. 

EXITS . Normal: Return to calling sub- 
routine. 

Error: RJMSG with message code = 9 to 
indicate a line error. 

Input Switch Subroutine 

SUBROUTINE NAME. RJINP (Chart GA) 



ENTRY POINT. 



RJINP 



FUNCTION. 



This subroutine selects the 



device from which the current input is to 
be read and moved to a line buffer. The 
selection is made by checking indicators in 
the RJLOn program that have been set 
according to operator responses . 

EXTERNAL SUBROUTINES . 

CRDRD - reads and checks card input 
from the card reader. 

RJKBD - reads a record from the console 
keyboard. 



RJDSK - reads and checks records fribm 
disk. 

EXITS . Normal: Return to calling sub- 
routine . 

Error: RJFIN with Accumulator = nonzeri) to 
dump contents of core storage at the 
printer if no input switch is on. 

Card Input Subroutine 

SUBROUTINE NAME . CRDRD (Chart HA) 

Note : The logic for the 2501 and 1442 fcard 
Readers is identical. CRDRD is the symf 
bolic name used in calling this subroutine 
since it is not known which card reader is 
being used. 

ENTRY POINTS . 

RJRDl to service 1442 Card Reader. 
RJRD2 to service 2501 Card Reader. 



FUNCTION . 



This subroutine reads cards from 



f 
ro- 



EOT 



ai 



Lts 

r 



the card reader, converts them to EBCDIC 
code, and stores them in a line buffer. 
Each character from a card is stored in 
EBCDIC in the first 8 bits of a word, 
the card reader is not ready or if a re 
check occurs, the subroutine goes to a 
cedure in CNTRL (RDRER) that sends a ' D 
heading over the line followed by an 
writes a message to the operator and w 
for the reply, sends an 'R' heading and 
then continues according to the operato 
response. The 80-word input buffer ( 
is located in CRDRD; the two line buffe 
(RJTB1 and RJTB2 for point-to-point con 
figuration; RJTB3 and RJTB4 for multipo 
configuration) of 404 words each are us 
alternately as output buffers. 

EXTERNAL SUBROUTINES. 



RJCHK - checks each record and sets bro- 

gram switches. 
RDRER (in CNTRL) - sends headings an^ 

writes an error 

message. 
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EXITS. 



Normal: Return to calling sub-| 



routine. 
Error: None. 

Console Keyboard Input Subroutine 

SUBROUTINE NAME. RJKBD (Chart IA) 



ENTRY POINT. 



RJKBD 



FUNCTION . One record is read from the ^on- 
sole keyboard. It is extended with blanks 
to an 80-character record. The record %s 
then translated to EBCDIC and moved to |a 
line buffer. Since commands are the onfLy 
acceptable input from the console keyboard, 
the record must have the identifying 
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characters . . in positions 1 and 2 followed 
by at least one blank. Otherwise an error 
message, "J22 INVALID INPUT", is written to 
the operator. The system then waits for 
the operator to type in another command or 
an EOF to indicate end-of-file. The 
commands submitted from the console key- 
board are transmitted in slow input mode. 
A "D" heading must be sent over the line 
initially. This gives the operator three 
minutes to type in the command. Commands 
are sent over the line one at a time. Ait 
EOT is sent after each command by a pro- 
cedure in the subroutine CNTRL but the line 
is turned around only after all the 
commands are sent. Consequently, the only 
valid reply from the central system after a 
command is sent from the console keyboard 
is an EOT on switched lines, and timeout 
otherwise. 

If the first thing the operator types in 
is an EOF, this indicates he has finished 
sending commands. In this case an 'R' 
heading is sent to the central system by a 
procedure in the subroutine CNTRL to reset 
slow input mode. This is followed by an 
EOT and then the CNTRL subroutine wSrits for 
a reply. 

Part of the line buffer located in the 
READ subroutine is used as an input and 
output buffer. 

EXTERNAL SUBROUTINES . 

RJCP2 - for point-to-point configuration 
and RJCM2 for multipoint con- 
figuration (CNTRL) - indicates 
end of slow input mode. 

RJMSG - prints error message. 

NLTYP - returns carriage on console 
printer. 

EXITS . Normal: Return to calling sub- 
routine. 
Error: None. 

Disk Input Subroutine 

SUBROUTINE NAME. RJDSK (Chart JA) 



ENTRY POINT. 



RJDSK 



FUNCTION . This subroutine reads 80- 
character logical records from a disk unit 
and blocks them in a line buffer. When an 
error in reading from the disk is en- 
countered or when the end of a disk unit is 
reached without an end-of-file indication 
in the data, a return is made to the 
calling subroutine with message code = 10 
indicating a message is to be written to 
the operator. End-of-file is reached on a 
disk unit when the number of disk blocks 
specified in a . . DATA card, an RJEND 
command, a NULL statement, or another .. 
DATA card is read. 



The 320-word disk buffer (RJDSB) is 
located in this subroutine. The two line 
buffers (RJTB1 and RJTB2 for point-to- 
point lines; RJTB3 and RJTB4 for multipoint 
lines), 404 words each, are located in the 
READ subroutine and used alternately as 
output buffers. 

EXTERNAL SUBROUTINES . 

RJCHK — checks each record in order to 
set program switches. 

RWDSK - reads a disk sector. Accumula- 
tor must contain a zero to 
indicate the read function. The 
Extension (EXT) must contain the 
address of the disk input buffer. 

EXITS . Normal: Return to calling sub- 
routine . 

Error: Return to calling subroutine with 
message code = 10 and the TMEOT indicator 
turned on; the disk and card input indi- 
cators are turned off to terminate the in- 
put stream after a disk error. 

Check Subroutine 

SUBROUTINE NAME. RJCHK (Charts KA and KB) 



ENTRY POINT. 



RJCHK 



FUNCTION . This subroutine checks all 
records read by CRDRD or RJDSK subroutines 
and sets program switches located in the 
RJLOn program for the following recognized 
statements: RJSTART, RJEND, JED, JOB, DD 
Data, /*, .. (null) and .. DATA. The sub- 
routine will not recognize JOB or JED 
statements in a multipoint configuration 
except for the first one (also the first 
JED or JOB statement after a restart con- 
dition has occurred) . 

The message "J21 .. DATA INVALID", is 
written to the operator if any of the para- 
meters in the . . DATA command are invalid. 
The RJSTART command is not recognized if 
read by RJDSK. When a DD Data statement is 
read, none of the above statements are 
recognized until after a /*. 

EXTERNAL SUBROUTINES . RJMSG - with message 
code = 6 to write message to operator. 

EXITS . Normal: Return to calling sub- 
routine . 

Error: None. 



RECEIVING OUTPUT (REVOUT) SUBROUTINES 

The basic function of REVOUT is to read 
output from the central system and send it 
to an I/O device located at the 1130 Re- 
mote Work Station. Specifically REVOUT 
deals with processing headers, reading out- 
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put from the central system, selecting the 
output path, and writing the output to the 
I/O device. 

REVOUT is divided into six subroutines 
that perform these functions : 

READ 

RJHDR 

RJOUT 

PRNTR 

PUNCH 

UEXIT 

A detailed description of each sub- 
routine follows. 

Receiving Subroutine 

SUBROUTINE NAME . READ (Charts LA and LB) 

Note : The description is valid for both 
point-to-point and multipoint lines. 

ENTRY POINTS . 

RJTRP - entry point for point-to-point 
con figuration . 

RJTRM - entry point for multipoint con- 
figuration. 

FUNCTION . This subroutine reads output from 
the central system. Two line buffers (RJTB1 
and RJTB2 for point-to-point lines; RJTB3 
and RJTB4 for multipoint lines) of 404 
words each, are used so that output can be 
received from the central system at the 
same time that the local output device is 
being serviced. Each record is checked to 
see if it is a heading. When a heading is 
received, the RJHDR subroutine is called 
to process this information. After the 
heading is processed and the line buffer is 
filled, an exit is made to the RJOUT sub- 
routine to select the output device. 

When an EOT is received after output 
from the central system, return is made to 
the CNTRL subroutine with the ACC = zero. 
If the previous heading specified the UEXIT 
subroutine as the destination for the out- 
put, a branch is made to the UEXIT sub- 
routine in order to indicate the end of 
user-exit output before going to the CNTRL 
subroutine. 

A line error in reading the output from 
the central system causes an exit to the 
RJMSG subroutine with message code = 9. 
This prints the message "J51 LINE ERROR 
OCR=" at the console printer. Action then 
depends upon the operator response. This 
is discussed in the section on the RJMSG 
subroutine. 

If a DLE/EOT is received from the 
central system on a switched line, this 



subroutine checks to see if a '5' heading 
has just been received, and if so, an texit 
is made to the RJFIN subroutine for close- 
down. If a '5' heading has not been re- 
ceived, the DLE/EOT means that the central 
system found an irrecoverable error and is 
breaking its line connection with the k.130 
work station. If this is the case, th£ 
DLE/EOT is regarded as a line error. The 
only way communication can be reestablished 
is by redialing and issuing another RJSTART 
command. (DLE/EOT is always followed by 
disconnection on a switched line.) 

Before each read operation, the discon- 
tinue output indicator (DSCON) is checked. 
If this indicator is set, no more output is 
read from the central system and return is 
made to the CNTRL subroutine with a nonzero 
in the Accumulator to indicate sending an 
EOT to the central system instead of aiji ACK 
in reply. 

EXTERNAL SUBROUTINES . 

WSCAT - waits for completion of line 
operation. 

RJHDR - processes the headings received. 

UEXIT - when it is indicated that all of 
the UEXIT output has been re- 
ceived. 

RJOUT - directs the output to the I 
current output device. 

EXITS. Normal: Return to calling sub4 
routine; or RJFIN with ACC = for close- 
down after a '5' heading on a switched I line. 
Error: RJMSG with message code = 9 foil- 
line error message to be written at the 1 
console printer. 

Header Processing Subroutine 

SUBROUTINE NAME . RJHDR (Chart MA) 

ENTRY POINT . RJHDR 

FUNCTION . This subroutine processes th^e 
information in the headings* received fjrom 
the central system and stores the result 
in the RJLOn program. When the '5' healding 
is received, the status of some of the 
indicators in the RJLOn program is chanlged 
to indicate central RJE closedown. 

EXTERNAL SUBROUTINES . None. 

EXITS . Normal: Return to calling sub-! 

routine. 

Error: None. 

Output Switch Subroutine 

SUBROUTINE NAME. RJOUT (Chart NA) 



ENTRY POINT. 



RJOUT 



See Appendix E 
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FUNCTION . This subroutine uses the infor- 
mation found in the device ID of the head- 
ing* to direct the output to the correct 
device. It also removes the line control 
characters from the line buffer, and passes 
control to the correct subroutine for pro- 
cessing the last line buffer received. 

If a new heading is received changing 
the destination of the output, and if the 
previous heading has specified the UEXIT 
subroutine as the destination, a branch is 
made to the UEXIT subroutine to indicate 
that it has received all of its output. 
Then control is passed to the PRNTR, PUNCH, 
or UEXIT subroutine, depending on.which was 
specified. When a '5' heading has been 
received, this subroutine returns directly 
to the READ subroutine. 

EXTERNAL SUBROUTINES . 

RJPR1 (PRNTR) - prints data on the 140.3 
Line Printer or the console printer. 
RJPR2 (PRNTR) - prints data on the 1132 
Line Printer or the console printer. 
RJRP1 (PUNCH) - punches cards on the 1442 
Card Read Punch, Models 6 and 7. 
RJRP2 (PUNCH) - punches cards on the 1442 
Card Punch, Model 5. 

UEXIT - writes output on disk, or indi- 
cates end-of-file of disk output. 

EXITS . Normal: Return to calling sub- 
routine. 

Error: RJFIN with ACC = nonzero to dump 
core in case of invalid device ID. 

Print Output Subroutine 

SUBROUTINE NAME . PRNTR (Chart OA) 

Note : The subroutines for the 1403 and the 
1132 Printers are logically identical. 
PRNTR is the symbolic name used in calling 
this subroutine since it is not known which 
printer is being used. 

ENTRY POINTS . 

RJPR1 - entry point for the 1403 Printer. 
RJPR2 - entry point for the 1132 Printer. 

FUNCTION . This subroutine prints OS/360 
data sets on the line printer and RJE 
system messages on the console printer or 
the line printer. Switch on the console 
is tested to determine the output printer 
for the RJE system messages. Records with 
or without control characters are accepted. 
For data sets with invalid or no control 
characters, the following format is used: 

spacing of one line with a skip to channel 
1 when channel 12 is sensed. If the 
printer is not ready, the "PR NR" message 
is returned. The operator has approximately 



21 seconds to make it ready or a line error 
will occur. 

EXTERNAL SUBROUTINES . NLTYP - waits for 
completion of the operation on the console 
printer and resets the carriage for a new 
line. 

EXITS . Normal: Return to calling sub- 
routine. 
Error: None. 

Punch Output Subroutine 

SUBROUTINE NAME . PUNCH (Chart PA and PB) 

Notes : The description covers all models 
of the 1442 Card Read Punch supported. 
PUNCH is the symbolic name used in calling 
this subroutine since it is not known which 
model is being used. 

ENTRY POINTS . 

RJRP1 - for the 1442 Card Read Punch, 

Models 6 and 7. 

RJRP2 - for the 1442 Card Punch, Model 5. 

FUNCTION . Records up to 80 characters in 
length are moved from a line buffer to the 
card punch. This subroutine handles 
records with or without control characters. 
When there are no control characters or the 
characters are not recognized, stacker 1 is 
selected. On the 1442 Card Read Punch, 
Models 6 and 7, the first card of each data 
set is checked to insure that it is blank 
before punching. If the card is not blank, 
the RJMSG subroutine writes the message 
"PUNCHED OUTPUT" at the console printer. 
The 80-word output buffer (RD420) is the 
same as that used for CRDRD if model 6 or 7 
of the 1442 is used. The buffer (RP900) 
for the model 5 of the 1442 Card Punch is 
80 words and is located in this subroutine. 
If the punch is not ready "PU NR" is 
printed at the console printer, and the 
operator has approximately 21 seconds to 
make it ready or a line error will occur. 



EXTERNAL SUBROUTINES, 



RJMSG - writes 



*See Appendix ,E. 



message at the console printer (only in 
RJRP1) . 

EXITS . Normal: Return to calling sub- 
routine. 
Error: None. 

Disk Output Subroutin e 

SUBROUTINE NAME . UEXIT (Charts QA and QB) 

ENTRY POINTS . UEXIT is the only entry 
point. The address of the parameter list 
is in register 1. 

FUNCTION . Data directed to the UEXIT sub- 
routine is stored on disk. Each data set 
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starts on a sector boundary and is stored 
In consecutive sectors. A message is 
written at the console printer -.giving the 
data set information and the address of the 
first sector used for this data set. When 
the end of the data set is reached, the 
number of disk blocks written is added to 
the message. 

When no space is defined, when the area 
reserved is exhausted, or when a permanent 
disk error occurs, this subroutine sets 
the indicator (DSCON) to discontinue out- 
put. The message "J55 END OF DISK AREA 
OCR=" or "J53 DISK ERROR OUTPUT OCR=" will 
be issued to the operator by the CNTRL 
subroutine. 

A 320-word disk buffer (RJDSB) located 
in the RJDSK subroutine is used for storing 
the data sets on disk. 

EXTERNAL SUBROUTINES . 

RWDSK - writes the data set on disk? a 
1 must be in the ACC to indicate that 
the function is write, and the address 
of the output buffer must be in the 
Extension. 

NLTYP - waits for completion of the con- 
sole printer operation and resets the 
carriage. 

EXITS . Normal: Return to calling sub- 
routine. 
Error: None. 

Note : The user may substitute his own 
subroutine instead of the one supplied by 
IBM. He must save and restore index 
registers 1 and 3, if he wants to use them. 



SERVICE SUBROUTINES 



There are five functions of the DIRECTOR 
that service both the INTRAN and REVOUT 
subroutines. These functions are: waiting 
for the completion of the line operation, 
resetting the console printer, resetting 
the Communications Adapter, reading and 
writing on disk, and issuing messages to 
the operator. There are five subroutines 
in the DIRECTOR, referred to as service 
subroutines, that supply these functions: 

WSCAT 
NLTYP 
RWDSK 
RJMSG 
CLOSE 

A detailed description of each sub- 
routine follows. 



Wait for Line Operation Completion Sub 4 
routine 

SUBROUTINE NAME . WSCAT (Chart RA) 

ENTRY POINT . WSCAT 

FUNCTION . This subroutine waits for trie 
completion of any line I/O operation tljat 
is in progress. 

EXTERNAL SUBROUTINES . None. 

EXITS . Normal: Return to calling sub+ 

routine. 

Error: None. 

Note : Assembled with the initializing I 
mainline program RJLOn. 

End of Console Printer Operation Subroutin e 

SUBROUTINE NAME . NLTYP (Chart RA) 

ENTRY POINTS . 

i 
NLTYP - carriage return on the console 

printer. 
WTYPE - waits for completion of the 

console printer operation. 

FUNCTION . This subroutine waits for cdm- 
pletion of the console printer operation 
and resets the console printer by returning 
the carriage. 



EXTERNAL SUBROUTINES. 



None. 



EXITS . Normal: Return to calling sub^ 

routine. 

Error: None. 

Note : Assembled with the initializing 
mainline program RJLOn. 

Read/Write on Disk Subroutine 

SUBROUTINE NAME . RWDSK (Chart RB) i 

ENTRY POINT . RWDSK 

FUNCTION . This subroutine reads a sector 
from or writes a sector on disk. The dub- 
routine calling the RWDSK subroutine must 
put a or 1 in the Accumulator to indicate 
which function is to be performed. A zero 
indicates read and a one indicates write. 
The address of the input/output buffer 
should be placed in the Extension. Thd disk 
buffer used (RJDSB) is located in the RJDSK 
subroutine. Upon completion of the 
function, the Accumulator indicates whdther 
or not the disk operation was completed 
correctly. 



EXTERNAL SUBROUTINES. 



None. 
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EXITS . Normal: Return to calling sub- 
routine with ACC = nonzero to indicate disk 
operation completed correctly. 
Error: Return to calling subroutine with 
ACC = zero to indicate disk operation was 
not completed correctly. 

Note : Assembled with the initializing 
mainline program RJLOn. 

Message Subroutine 

SUBROUTINE NAME . RJMSG (Charts SA and SB) 

ENTRY POINT . RJMS G 

FUNCTION . This subroutine writes messages 
at the console printer. The RJCON sector 
on disk contains the messages. A message 
code placed in MSCOD indicates which 
message is to be written. For message 
codes 2, and 4-8, the RJMSG subroutine re- 
turns to the calling subroutine after 
writing the message. For message code 3,. 
the RJMSG subroutine waits for any char- 
acter to be entered, and then returns to 
the calling subroutine. For the other 
valid message codes the subroutine reads 
the operator response and acts accordingly. 
If the message code is invalid, the sub- 
routine exits to the RJFIN subroutine with 
the Accumulator = nonzero to dump core. 

Following is a list of actions taken on 
operator responses : 

Response MSCOD Action 

A 1 Not recognized 

9 Line is closed, and the 
subroutine exits to 
BEGIN to restart RJE 

10-12 Card reader stop indi- 
cator, STOPR, is reset 

13 No action 

B 1, 9 Not recognized 

10-12 Basic keyboard indicator, 
KBINP, is set 

13 Not recognized 

C 1, 9 Not recognized 

10-12 No action 

13 Not recognized 

E 1,9-12 Not recognized 

13 Reset disk input indi- 
cator (DSKIN) , set card 



Response MSCOD 



Action 

reader stop (STOPR) , and 
transmit EOT (TMEOT) 
indicators ; reset other 
indicators that may have 
been set 



1, 9-12 Exit to RJFIN with ACC = 
nonzero to dump core 

13 Not recognized 

1, 9 Exit to RJFIN with ACC = 
zero to exit to Disk 
Monitor 



10-13 Not recognized 

Following is a list of messages and 
their message codes: 



J54 DISK ERROR 0CR=* 

ESTABLISH LINE CONNECTION 

PUNCHED OUTPUT 

PROCEED 

J20 RJSTART MISSING 



Message code=l 
Message code=2 
Message code=3 
Message code=4 
Message code=5 
Message code=6 
Message code=7 
Message code=8 

Message code=9 
Message code=10 

Message code=ll 

Message code=12 

Message code=13 



All the messages above go to the console 
printer. Indicators in the RJLOn program 
are set according to the operator response. 

EXTERNAL SUBROUTINES . 

CLOSE - resets the Communications 

Adapter. 
NLTYP - returns the carriage on the 

console printer. 
RWDSK - reads messages from RJCON on 

disk. 



J21 


. . DATA INVALID 


J22 


INVALID INPUT 


J2 3 


INPUT ABORTED BY 




CENTRAL 


J51 


LINE ERROR OCR=* 


J52 


DISK ERROR INPUT 




OCR=* 


J5 3 


DISK ERROR OUTPUT 




OCR=* 


J55 


END OF DISK AREA 




OCR=* 


J56 


CARD READER ERROR 




OCR=* 



* indicates operator response 
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EXITS. 



Normal: 





error code response 


RJFIN with ACC = 


1, 9-12 T 


nonzero 




RJFIN with ACC = 


1, 9 X 


zero 




BEGIN (RJBGP or 


9 A 


RJBGM) 




Return to calling 


All other 


subroutine. 


combinations 



Error: RJFIN with ACC = nonzero for 
invalid message code. 

Note : Assembled with the subroutine RJFIN. 

End of Line Operation Subroutine 

SUBROUTINE NAME . CLOSE (Chart RA) 

ENTRY POINT. CLOSE 



the Program Start key, otherwise a new 
interrupt will occur as soon as the le\iel 5 
interrupt processing is finished. If the 
Program Stop key is pressed while RJREQ is 
being executed or the TYPEO subroutine lis 
printing at the console printer, return 
without the intended communication with the 
operator occurs. In all other cases the 
message "OCR=" is written at the console 
printer and the system waits for the 
operator to respond. Valid responses are 
A, B, D, N, T. For invalid responses tjhe 
message is repeated and the operator rejplies 
again. The action taken depends on the or 
operator response. 

The following action is taken on valid 
operator responses : 

A - Card reader stop indicator (STOPJR) 
in RJLOn is reset if the RJEND 
indicator is off. 

B - Keyboard input indicator (KBINP) in 
RJLOn is set if the RJEND indicator 
is off. 



FUNCTION . This subroutine resets the 
Communications Adapter on the 1130. 

EXTERNAL SUBROUTINES. None. 



Discontinue output indicator (DSJCON) 
in RJLOn is set. 

No action. 



EXITS . Normal: Return to calling sub- 
routine. 
Error: None. 

Note : Assembled with the initializing 
mainline program RJLOn. 



OPERATOR COMMUNICATION REQUEST SUBROUTINE 



The operator communication function is 
an important part of the DIRECTOR. These 
communications are provided to give the 
operator the ability to indicate more in- 
put, discontinue output on the line, termi- 
nate RJE processing, or ignore the request. 
The operator communication request sub- 
routine (RJREQ) makes these facilities 
available. 



T - Accumulator is set to nonzero to 

indicate that a dump is desired and 
the termination subroutine RJFINl is 
entered. 

On all responses but T, the system retujrns 
to the interrupt point. 



EXTERNAL SUBROUTINES . User subroutine 
Disk Monitor to handle level 5 inter 



ruplt 



other than Program Stop. 



EXITS. 



or 
s 



_______ Normal: Return to interrupt pqint. 

RJFIN if operator response is T. 
Error: None. 

Note : For interrupts other than Progra^n 
Stop, it is assumed that the return is Iby a 
Branch Out or Skip on Condition (BOSC) 
instruction. 



SUBROUTINE NAME . RJREQ (Chart TA) 

ENTRY POINTS . RJREQ - by pressing the Pro- 
gram Stop key 

FUNCTION . This subroutine allows the 
operator to request certain actions from 
the RJE Work Station Program; it is entered 
as a level 5 interrupt subroutine when the 
Program Stop key is pressed. If the inter- 
rupt was not caused by the Program Stop 
key, the subroutine exits to ordinary level 
5 processing. When the Program Stop key 
has been pressed, it is necessary to press 



TERMINATION SUBROUTINE 



The termination subroutine provides 
three functions necessary for the effiqient 
closedown of the 1130 RJE Work Station 
Program: resetting the Communications 
Adapter on the 1130, dumping core if re- 
quested, and exiting to the Disk Monitor 
Resident Supervisor. The RJFIN subroutine 
supplies these functions with a branch to 
the CLOSE subroutine for resetting the 
Communications Adapter. 
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SUBROUTINE NAME . RJFIN (Chart UA) Before the exit, however, the original 

level 5 interrupt address is restored. 

ENTRY POINT . RJFIN 

EXTERNAL SUBROUTINES . CLOSE - resets the 
FUNCTION . This terminating subroutine Communications Adapter, 
first checks the Accumulator. If it is 

nonzero, an exit is made to the terminating EXITS . Normal: If Accumulator is zero, to 
DUMP entry point; if the Accumulator is the Supervisor in the Disk Monitor. If 
zero, an exit is made to the Supervisor. Accumulator is nonzero, to the terminating 

DUMP in the Disk Monitor. 

Error: None. 
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APPENDIX A: OVERALL FUNCTIONAL CONTROL 



DCOM 



REVOUT 



READ (2) 

RJHDR 

RJOUT 
PRNTR (2) 
PUNCH (2) 
UEXIT 



RJQST 



RJCON 



DISK MONITOR 
CORE IMAGE 
LOADER 
CORE LOAD 

BUILDER 



RJLOn (8) 

WSCAT (8) 

NLTYP (8) 

RWDSK (8) 

CLOSE (8) 
BEGIN (2) 
CNTRL (2), RJREQ 
RJMSG, RJFIN 



INTRAN 



WRITE (2) 
RJINP 
CRDRD (2) 
RJKBD 
RJDSK 
RJCHK 



A 



DIRECTOR 



V 



CARD PUNCH 
LINE PRINTER 
CONSOLE-PRINTERI 
USER-EXIT 



CARD READER 
CONSOLE- 
KEYBOARD 
DISK UNIT 
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APPENDIX B: CONTENTS OF RJCQ N 



WORD 




CONTENTS 

Configuration 

Bits 14 and 15=00 for point-to- 
point nonswitched 

Bits 14 and 15=01 for point-to- 
point switched 

Bits 14 and 15=10 for multipoint 

Polling character 
Selection character 
Reserved 



4 Starting sector address for dijsk 

output 

5 Last sector address for disk cjut- 

put 

6-9 Reserved 

10-21 Table of displacements of message? 
in RJCON 

22-31 Reserved 

32-nn Messages 
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APPENDIX C; 1130 RJE PROGRAM/ROUTINES AND ENTRY POINTS 



Title of 


No. of 


Prime 


Secondary 


Assembled 




Function Name 


Routines 


Entry 


Entry 


With 


Notes 


RJE00 


1 


RJE00 






Principal I/O and print device 


RJQST 


1 


RJE 






Principal I/O and print device 


RJLOn 


8 


RJL01 
RJL02 
RJL03 
RJL04 
RJL05 
RJL06 
RJL07 
RJL0 8 






SCAT2, PRNT3, CARD1 
SCAT3, PRNT3, CARD1 
SCAT2, PRNT2, CARD1 
SCAT3, PRNT2, CARD1 
SCAT2, PRNT3, READ1 , PNCH1 
SCAT3, PRNT3, READ1 , PNCH1 
SCAT2, PRNT2, READ1 , PNCH1 
SCAT3, PRNT2, READ1 , PNCH1 


CLOSE 


8 






RJLOn 


SCAT2 or SCAT3 


NLTYP 


8 


NLTYP 


WTYPE 


RJLOn 


TYPEO 


RWDSK 


8 


RWDSK 




RJLOn 


DISKZ 


WSCAT 


8 


WSCAT 




RJLOn 


SCAT2 or SCAT3 


BEGIN 


2 


RJBGP 

RJBGM 






SCAT 2 
SCAT 3 


CNTRL 


2 


RJCNP 


RJCP1 
RJCP2 




SCAT 2 






RJCNM 


RJCM1 
RJCM2 
RJCM3 




SCAT 3 


WRITE 


2 




RJTWP 


RJCNP 


SCAT2 








RJTWM 


RJCNM 


SCAT 3 


READ 


2 




RJTRP 


RJCNP 


SCAT 2 








RJTRM 


RJCNM 


SCAT 3 


BUFF 1 






RJTB 1 


RJCNP 


line buffer addresses 








RJTB3 


RJCNM 


line buffer addresses 


BUFF2 






RJTB 2 


RJCNP 


line buffer addresses 








RJTB 4 


RJCNM 


line buffer addresses 


RJINP 




RJINP 






device independent 


RJDSK 




RJDSK 






DISKZ 


RJKBD 




RJKBD 






TYPEO 


RJCHK 




RJCHK 






device independent 


RJOUT 




RJOUT 






device independent 


RJHDR 




RJHDR 






device independent 


CRDRD 


2 


RJRD1 
RJRD2 






CARD1 
READ1 


PUNCH 


2 


RJRP2 


RJRP1 


RJRD1 


CARD1 
PNCH1 


PRNTR 


2 


RJPR1 
RJPR2 






PRNT3 

PRNT2 


RJREQ 


1 


RJREQ 






TYPEO 


RJFIN 


1 


RJFIN 








RJMSG 


1 




RJMSG 


RJFIN 


TYPEO 


RJCON 










data file on disk 


UEXIT 


1 


UEXIT 






DISKZ 
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APPENDIX D: 



1130 RJE WORK STATION PROGRAM MESSAGES 



OCR=* 

ESTABLISH LINE CONNECTION 

PUNCHED OUTPUT 

PROCEED 

DATA rrrrOcOf TO DISK AT 
Xaaa , bbbb 

PR NR 

PU NR 

J01 INVALID CARD 

J10 INVALID PRINTER 

J1 1 INVALID READER 

J14 DISK ERROR OCR=* 



Message code= 2 
Message code= 3 
Message code= 4 



J20 RJSTART MISSING 

J21 . . DATA INVALID 

J22 INVALID INPUT 

J23 INPUT ABORTED BY 
CENTRAL 

J51 LINE ERROR OCR=* 

J52 DISK ERROR INPUT OCR=* 

J53 DISK ERROR OUTPUT OCR=* 

J54 DISK ERROR OCR=* 

J55 END OF DISK AREA OCR=* 

J56 CARD READER ERROR OCR=* 



Message cod!e= 5 

Message cod[e= 6 

Message cod]e= 7 

Message codje= 8 

Message cod]e= 9 

Message cod!e=10 

Message cod|e=1 1 

Message coc|e= 1 

Message cod|e=12 

Message code=13 
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APPENDIX E; COMMUNICATION HEADINGS 



Every data set transmitted from the cen- 
tral system to a remote CPU is preceded by 

S E 

a heading O text T 

H X 

The format of the text of the heading is 
as follows : 



ID 



CONTROL 



RECFM 



RECSIZE 



TJ T 2 3 

ID — Identifies the destination or device. 

Code 

F1 — printer 

F2~punch 

F3 — printer-keyboard 

F4 — user-exit 

CONTROL — Identifies the control characters 
contained in the record. 

Code 

F1 — Machine Code 
F2 — ASA 
F3 — None 



RECFM — Identifies the record format. 

Code 

F1 — fixed unblocked 
F2 — fixed blocked 
F3 — variable unblocked 
PH — variable blocked 
F5 — undefined 

RECSIZE — Logical record size in unpacked 
decimal format. 

There is one heading that the centrajl 
system sends that does not follow this 
format. This exception is the end-of-j^b 
heading with the following format: 

S E 
5 T 
H X 

There are two headings sent from the 
work station to the central system that 
tell the central system to set or reset 
slow input mode. 

To set slow input modes 



S 

o 

H 



E 
T 
X 



To reset slow input mode: 



s 



H 



E 
T 
X 
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APPENDIX F: CORE STORAGE REQUI REMBNTS 



1. 



Approximate Core Storage Requirements 
for the IBM 1130 RJE Work Station 
Program: 



Configuration 



Point-to-point, 1442-6,-7, 1403 

Multipoint, 1442-6, -7, 1403 

Point-to-point, 1442-6,-7, 1132 

Multipoint, 1442-6, -7, 1132 

Point-to-point, 2501, 1442-5, 
1403 

Multipoint, 2501, 1442-5, 1403 

Point-to-point, 2501, 1442-5, 
1132 

Multipoint, 2501, 1442-5, 1132 



Approximate 
Core Size 
in Words 



7250 
7250 
7500 
7650 

7250 
7350 

7600 
7750 
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CHARTS 



Chart AA. (RJEOO) RJE Generation 




READ A CARD/ 

FROM THE 

PRINCIPAL 
i INPUT 
\DEVICE 




MESSAGE TO 
^OPERATOR 
"JO! INVALID 
CARD" 
\ / 



L 



POINT-TO-POINT 



SWITCHED LINE 



. J3- 

SET BITS 14 AND 

15 TO 00 IN 
WORD OOF 
RJCON 



MULTIPOINT 



r J4— 

SET BITS 14 AND 
15 TO 01 IN 
WORD OOF 
RJCON 



-J5- 

SET BITS 14 AND 
15 TO 10 IN 
WORD OOF 
RJCON 



-K5- 
MOVE POLLING 
CHAR TO WORD 1 
AND SELECTION 
CHAR TO WORD 2 
OF RJCON 



Charts 
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Chart AB. (RJEOO) RJE Generation 




TRANSLATE AND 
MOVE 

ADDRESSES TO 
WORDS 4 AND 5 
OF RJCON 




LAST 
-H3- 



\ 



PRINT THE 
NRORMATION 
CARD 







EXIT TO 

DISK MONITOR 



D 
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Chart BA. (RJQST) Select RJE Program 




-*© 



-*r*- 



DSKER 
r-D4- 

\ / 

' MESSAGE TO 
OPERATOR "J 14 
DISK ERROR 
OCR=" 

\ . / 




\ ISSUE MESSAGE' 

\T0 OPERATOR 
"*"J10 INVALID 
PRINTER" , 
\ / 



SSUE MESSAGE, 
TO OPERATOR/ 

'J II INVALID 
READER" 
\ 



*"', 




NO 


ADD 1 TO INDEX 
REGISTER 2 IF 
MULTIPOINT 
SPECIFIED 


E5 " 


MULTIPLY BY 
4 TO GET 
CORRECT LINK 
TABLE 
DISPLACEMENT 


F , " 



( RJLON J 



Charts 



4 L 



Chart CA. (RJLOn) Initialization of RJE Program 



ENTRY POINTS RJL01-RJL08 



c 



3 



-B3- 

MOVE ENTRY 
POINT ADDRESSES 
FROM TV TO 
CALL LIST IN 
RJLON 



-C3- 
SAVE OLD LEVEL\ 
5 INTERRUPT \ 
ADDRESS AND ) 

NSERT ADDRESS / 
TO RJREQ / 



NEW LINE ON 
CONSOLE PRINTER 



ADDRESS OF TABLE 
TO INDEX 
REGISTER 1 



SAVE INDEX 
REGISTER I IN 
RJREQ 



SAVE INDEX 
REGISTER 3 



c 



D 



N IN THE RANGE 1-8 



DAA1 POINT-TO-POINT 
DCAI MULTIPOINT 
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Chart DA. (RJBGP) Begin Point-to-Point 



RJBGP C A H3 

SBE3 




_C2 '' 



BG060 DAA4 



READ 

RJCON FROM 
DISK 



MOVE USER 
AREA ADDRESSES 
TO RJLON 



MOVE 
SWITCHED 
NETWORK 
INDICATOR TO 
RJLON 



BG000 
-G2- 



RESET 

ALL INDICATORS/ 



H2 1 



READ ONE CARD 




SET MESSAGE 
CODE 



BG060 
-A4 



( ENTER J 



•B4- 



MOVE SECTOR 
ADDRESS OF 
RJCON TO I/O 
AREA 



READ RJCON 
FROM DISK 




SET MESSAGE 
CODE =1 



c 



3 



►( RETURN ) 



r J4 

RJMSG SAAl 




-J5— 1 

WAIT FOR 
PROGRAM 
START KEY 


"J20 RJSTART 
MISSING" TO 
OPERATOR 





Charts 
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Chart DB. (RJBGP) Begin Point-to-Point 




a 3 ^ 

^y DATA 
~^<. SET REAP 



YES 





A* 




A 5 




RJMSG SAA1 




WAIT UNTIL 
DATA SET READY 


NO 


"ESTABLISH LINE 
CONNECTION" 
TO OPERATOR 







WAIT FOR LINE 
OP COMPLETE 
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Chart DC. (RJBGM) Begin Multipoint 



RJBGM 
_A1- 



c 



CAH3 
SBE3 



J 




RESET ALL 
INDICATORS 



RJINP GAA2 



READ ONE CARD 




'rjstartcard 



SET MESSAGE \ 
CODE =5 / 



ISSUE MESSAGE 
"J20 RJSTART 
MISSING" 



WAIT FOR 
PROGRAM START 
KEY 



READ IN RJCON 
FROM DISK 



MONITOR THE / 
UlNE 



SEND RJSTART / 
\TO CENTRAL 



WAIT FOR 
COMPLETION OF 
LINE OPERATION 




H2 
S ERROR IN sj 
^TRANSMISSION 



\ FROM THE 
CENTRAL 

NO 



INDICATE ABORT 
FROM THE 
CENTRAL 



MOVE USER AREA 
ADDRESSES TO 
RJLON 



READ IN POLLING 
AND SELECTION 
CHARACTERS 



RJCM3 



EGH1 



STORE SELECT 
AND POLL CHAR 
ADDR IN RJCNM 



BG2I0 

.-TO- 



SET MESSAGE 
CODE =9 



BG180 
r J3- 



FCA1 



SEND 

COMMANDS TO 
THE CENTRAL 



BG060 
,A4 



DCB2 



( ENTER J 



MOVE SECTOR 
ADDRESS OF 
RJCON TO I/O 
AREA 



RWDSK 



READ RJCON 
FROM DISK 




SET MESSAGE 
CODE =1 



c 



*f RJMSG J 




tf RETURN J 





r J5 1 

RJCM2 EHA3 


NO 


SEND R-HEADING 





SET MULTIPOINT 
INDICATOR 



tX RJCNM ) 
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Chart EA. (RJCNP) Control Point- to-Point 




/ EOT \ YES 
< RECEIVED 
X AFTER OUTPUT 



ISSUE ERROR 
MESSAGE AND 
READ REPLY 



\ B V 



CN200 
-B5- 



RESET DSKIN, 
KBINP, TMEOT, 
ABORT, DDATA, 
SVCRD, AND SET 
STOPR IIMDR 
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Chart EB. (RJCNP) Control Point- to-Point 



KEYBOARD \ YES 
INPUT 




CARD \ YES 
READER INPUT/ 



Dl 

RJEND - YES 
'ACKNOWLEDGED* 
FROM CENTRAL 

v 

NO 




LISTEN FOR 
OUTPUT 



$) 




CN050 



TRANSMIT 
COMMANDS AND 
JOBS 



SET 

SECONDARY 
KEYBOARD 
INDICATOR 



WRITE 
D-HEADING 




TRANSMIT EOT 



NO 


<f TIMEOUT ^> 




YES 




M " 




RJTRP LAAI 


READ AGAIN 






LAK5 




^G5 " 



SET MESSAGE \ 
CODE =4 / 



-H5 

RJMSG 



SAA1 



ISSUE MESSAGE 
"PROCEED" TO 
OPERATOR 
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Chart EC. (RJCNP) Control Point-to-Point 



c 



EAF2 
EAK1 

EDF5 



3 



SEND \ NO 
HEADINGS ^ 




DHDNG EDAI 



SEND D-HEADING 




,-EI. 
TREOT ECA4 



TRANSMIT EOT 




RJM5G 



SAAI 



ISSUE MESSAGE 
AND READ 
REPLY 



SAK5 



SAVE TIME 
FOR EOT 

INDICATOR 



RHDNG EDA3 



SEND R-HEAUING 
AS INITIAL 
OPERATION 

EDK4 



RJMSG 



SAAI 



ISSUE MESSAGE 
AND READ 
REPLY 



RESTORE TIME 
FOR EOT 
INDICATOR 




CP600 

.-G3 



RETURN J 



SET ACC TO 
ZERO 



CLEAR I/O AREA 
AND SET RETRY 
COUNTER 



RESET TIME 
FOR EOT 
INDICATOR 



WSCAT 



RAA1 



WAIT FOR 
COMPLETION OF 
LINE OPERATION 



RAC1 




I.NERR H ^K^-E/EOT »EPLY> 

FBG3 >v / 

[no 





YES 



/N. 




SET ACC 
NON-ZEliO 
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Chart ED. 



(RJCNP) Control Point-to-Point 



SAVE ACC IN EXT 
AND LOAD 
RETRY COUNTER 



RESTORE ACC 



INITIAL \NO 
OPERATION . 



'WRITE INITIAL 
D-HEADING 



DH00O 
-Fl_ 



WSCAT RAA1 



WAIT FOR 
COMPLETION OF 
LINE OPERATION 



RACI 




DH010 
,K1- 



c 



J 



WRITE 

CONTINUE 

D-HEADING 

\7 



*f LNERR ) 



FBG3 



DLEAOT X YES j T 7^1 \ 

RECEIVED,* 5 » \ *•""" ) 



INPUT \ yes 
ABORTED >— — >■ 



SET ABORT 
INDICATOR 



SAVE ACC IN 
EXT AND LOAD 
RETRY COUNTER 



RESTORE ACC 



INITIAL \ NO 
.OPERATION, 



\WRITE INITIAL' 
R-HEADING 

w 



WSCAT RAAI 



WAIT FOR 
COMPLETION OF 
LINE OPERATION 



RACI 




SET TIME FOR \ 

EOT INDICATOR/ 



CP020 

-E4 1 



WRITE 

CONTINUE / 
R-HEADING' 

\ / 



JT LNERR J 



SET ABORT 
INDICATOR 



( RETURN J 



RDRER 
.-A5- 



HAE5 



c 



J 



SET MESSAGE \ 
CODE =13 / 





ISSUE MESSAGE 
AND READ REPLY 



/ LNERR ) f 



D 



RESET 

DISCONTINUE 

INDICATOR 



CPOIO 



DO NOT SET 
TIME FOR EOT 
INDICATOR 
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Chart EE. (RJCNM) Control Multipoint 




\ TRANSMIT 
EOT 



SET WAIT AND \ 
RESET TIME FOR ) 
EOT INDICATORS/ 



RESET DSCON 
INDICATOR 




ISSUE MESSAGE 
TO OPERATOR 




ISSUE MESSAG: 
AND READ REPLY 



HEADING\NO 
■*<. "5" RECEIVED . 




SET ACC ZERO 
TO INDICATE 
EXIT WITHOUT 
DUMP 



K3 

"-( RJFIN J 




RESET KEYBOARD 
INPUT, DISK 
INPUT AND// 
DD DATA 
INDICATORS 



-G5- 

RESET SAVED 
CARD, TIME FOR ' 
EOT AND ABORT/ 
INDICATORS 



ISSUE MESSAGE 
TO OPERATOR 



CN600 
i-J5- 



RESET POLLING 
AND SELECTION 
INDICATORS 



READ INITIAL/ 
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Chart EF. (RJCNM) Control Multipoint 




SET ACC NON- 
ZERO TO 
INDICATE 
WRITE INITIAI 



RJTWM FCA1 



TRANSMIT INPUT 
| FCK 



-Fl- 



SET SECONDARY 

KEYBOARD 

INDICATOR 



.01 1 




DHDNG EHA1 



WRITE 
D-HEADING 




RJMSG bAAl 



ISSUE MESSAGE 
"PROCEED" 10 
OPERATOR 



SBK5 



IOERR 
-A3- 



c 



D 




SEND \ NO 
„ HEADINGS^ 



.C3_ 

DHDNG EHA1 



SEND 
D-HEADING 




RJMSG 



SAA1 



ISSUE MESSAGE 
AND READ 
REPLV 



SBK5 



SAVE TIME 
FOR EOT 
INDICATOR 



CHDNG EHA3 



SEND 

R-HEADING 
AS INT OP 



ISSUE MESSAGE 
AND READ 
REPLY 




J 



RDRER 
-AS- 



c 



D 



SET 

MESSAGE 
CODE= 13 




TEST 
REPLY 




IOERR 



ISSUE 

MESSAGE AND 
READ REPLY 



c 



J 
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Chart EG. (RJCNM) Control Multipoint 




CN720 
-Dl- 



RESET WAIT 
INDICATOR 




■Fl- 



RESET 

POLLING 

INDICATOR 



•/ LNERR J 





CN800 



CN840 
-B5- 




CLOSE RAA2 



CLOSE 

PREVIOUS LINE 
OPERATION 



MONITOR THE/ 
iLINE 



RESET WAIT 
INDICATOR 



CN860 
-D5- 



HANDLE OUTPUT 



c 



DCD3 



D 



- ji- 

MOVE ADDRESSES 
TO POLLING AND 
SELECTION 
ADDRESSES 



c 



D 
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Chart EH. (RJCNM) Control Multipoint 



DHDNG 



EFC3 
EFG1 



RHDNG 



C ENTER ") 



.61 . 



SAVEACC IN 
EXT AND SET 
RETRY COUNTER 



J 



RESTORE ACC 




\WRITE INITIAL 
D-HEADING 

w 



DHIOO 
-F1- 



WSCAT 



RAA] 



WAIT FOR 
COMPLETION OF 
LINE OPERATION 



RACI 




c 



D 



DH300 
-D2 . 



SET RETRY 
COUNTER =2 




if LNERR ") 



SET ABORT 
INDICATOR 




^H5 

RESET 

DISCONTINUE 
AND DO NOT 
SET TIME FOR 
EOT INDICATORS 



SET INPUT 

ABORTED 

INDICATOR 



CP210 
,K5 



( RETURN ) 
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Chart FA. (RJTWP) Write Point-to-Point 



RJTWP 
.Al. 



DBF2 
EBD3 



c 



D 
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Chart FB. (RJTWP) Write Point-to-Point Subroutines 



TW300 



c 



EDD5 
FAC3 
PAG3 



ENTER 



D 



WSCAT RAA1 



WAIT FOR 
COMPLETION OF 
LINE OPERATION 




•/ LNERR J 



FBG3 



»/ LNERR J 



FBG3 



LNERR 



c 



EAH2 EDG4 
EAJ5 EDH2 
ECE4 EDH4 LAM 
ECF4FBC2LAF1 
EDG2 FBE2 LAF4 



3 



RESET LINE 

ERROR 

INDICATOR 



SET MESSAGE 
CODE -9 



TW700 
-A5- 



FAB3 
FACI 



c 



ENTER 



• B5- 



INSERTDLE/STX 
IN THE LINE 
BUFFER 



-C5- 



ADDRESS OF DATA 
TO THE POINTERS 
BLCKS AND BLCKE 



RJINP GAA2 



FILL THE BUFFER 



GAK3 
GAB4 



STORE WORD 
COUNT IN 
I/O AREA 



c 



F5_± 



RETURN 



3 



K3—I 

I RJMSG J 
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Chart FC. (RJTWM) Write Multipoint 
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Chart FD. (RJTWM) Write Multipoint Subroutines 



c 



EFD5 
FCF1 
FCH3 



D 



WSCAT 



RAA1 



WAIT FOR 
COMPLETION OF 
LINE OPERATION 




SET INPUT 

ABORTED 

INDICATOR 



TW310 
.Fl. 



c 



RETURN 



D 



•/ LNERR J 



TW700 
,A5- 



FCB1 
FCG3 



c 



_85- 



3 



INSERT DLE/STX 
IN THE LINE 
BUFFER 



C5- 



ADDRESS OF DATA 
TO THE POINTERS 
BLCKS AND BLCKE 



FILL THE LINE 
BUFFER 



GAK3 
GAB4 



STORE WORD 
COUNT IN 
I/O AREA 



c 



3 



EGA2 

EHG2 

LNERR EHG4 

FDC2 

LBC2 



■G3- 



ENTER 



J 



RESET LINE 

ERROR 

INDICATOR 



,-J3- 



SET MESSAGE 
CODE =9 



c 



D 
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Chart GA. (RJINP) Input Switch 



c 



DAH2 
DCD1 

FBD5 
FDD5 



3 




IN030 
n F2- 



STORE RECORD 
COUNT FOR CARD 
READ ROUTINE 



,-G2_ 
CRDRD HAA1 



READ RECORDS 
FROM THE CARD 
READER 



INO40 
-H2- 



RESTORE RECORD 

COUNTER TO 5 



RJKBD IAA1 



READ FROM 
KEYBOARD 



SET RECORD 
COUNT =1 



D3 

RJDSK JAA2 



READ FROM DISK 



►T RJFIN J 



UAA3 




■c 
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Chart HA. (CRDRD) Card Read Input Routine 



CRDRD 
,A1 



f ENTER V 



■ A2- 



MOVE RECORD 
COUNT AND SET 
WORD COUNT TO 
80 




A4 

CARL \ NOv 
READER READV 




pC4- 



CONVERT IBM 
CARD TO 
UNPACKED 
EBCDIC 




RD290 
I-E4- 



RJCHK 



CHECK THE CARD 



-E5 T 

RDRER EDA5/EFA5 



ERROR HANDLING 




EDG5 PP 
EFG5MP 
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Chart IA. (RJKBD) Console Keyboard Input 



GAB3 
f ENTER J 



l-BI- 

STORE ADDRESSES 
FOR MOVING 
AND 
CONVERTING 




NEW LINE WHEN 
OP COMPLETE 




Gl- 
RHDNGEDA3/EHA3 



SEND R-HEADING 



EDK4 PP 
EHK5 MP 



RESET KEYBOARD \ 
INPUT INDICATOR) 



KB300 
-Kl- 



c 



3 



KB020 




KB035 
r G2- 



SCAN FOR NL 
CHARACTER 



KB030 
r F3- 



MESSAGE CODE 
=7 TO MSCOD 



SAA1 



"J22 INVALID 
INPUT" TO 
OPERATOR 




KB050 
rG4- 



FILL BALANCE 
OF RECORD WITH 
BLANKS 



r H3_ 
MOVE AND 
CONVERTFROM 
IBM CARD CODE 
TO UNPACKED 
EBCDIC 



INCREASE BLC<E 
COUNTER BY 80 



SET TIME FOR 
EOT INDICATOR / 



OR ) 
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Chart JA. (RJDSK) Disk Input 




DS060 




RESET INTERNAL 
COUNT TO 
AND UPDATE 
DISK SECTOR 
ADDRESS 



ni 

UNPACK AND 
MOVE ONE 80- 
CHAR RECORD 
FROM THE DATA 
TO THE LINE 
BUFFER 



DS005 
_ D3 - - 



SET MESSAGE 
CODE =10 



-El- 
DECREASE BLOCK 
COUNT BY 2 
AND UPDATE 
ADDRESS IN 
DISK BUFFER 



.-E3- 




RJCHK 



CHECK THE 
RECORD READ 



r G2- 



RESET SAVED 

JED/JOB 

INDICATOR 



KAE2 KAK3 
KAF2 KAK5 
KAG4 KBE4 
KAH2 KBG4 
KAK2 




SET TIME FOR 
EOT AND 
RESET DISK INPUT, 
INDICATORS 




RESET DISK INPU 
INDICATORS 




DS140 



PUT 16 IN 
NTERNAL COUNT 
AND DECREASE 
SECTOR ADDRESS 



DS110 
-H4 



INCREASE THE 
BLOCK COUNT BY 
2 AND DECREASE 
INTERNAL BLOCK 
COUNT BY 2 



RESET RECORD 
COUNTER 



c 



D 
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Chart KA. (RJCHK) Card Check Routine 



JAGl 
HAE4 



FIND OFERATION 
FIELD 




»f RETURN J 



CH060 
G2" 
MULTIPOINT 





FIND 

OPERAND 

FIELD 



c 



YES 



D 



DATA 


s. YES 




SET// \ 
DD DATA ) 
INDICATOR / 






Tno 












C 


H040 

-K2 ! 


' 



RESET JED 

CARD 

INDICATOR 



( RETURN J I 



D 



CH280 
-A5- 




ERROR 
-*<IN PARAMETER ' 
LIST 



MESSAGE CODE 
=6 TO MSCOD 



SET CARD 
READER 5TOP 
AND TIME FOR 
EOT 

INDICATORS 



RESET DISK 

INPUT 

INDICATOR 




D 



SET SAVED 
JED/ JOB CARD 
INDICATOR 



SAAI 



"J21 .. DATA 
INVALID" TC 
OPERATOR 



E5 1 

CALCULATE 
AND STORE 
SECTOR 
ADDRESS 



"T 



CALCULATE 
AND STORE 
BLOCK NUMBSiR 



TRANSLATE THE 
ADDRESS AND 
BLOCK NUMBER 



CH065 
|—H5- 







SET TIME 
FOR EOT 

INDR 



CH650 
J5~ 



DECREASE 
POINTER 
BLCKE BY 80 



( RETURN ) 
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Chart KB. (RJCHK) Card Check Routine 




SET CARD 
READER STOP 
AND RESET DISK 
INPUT 
INDICATORS 




■ D3- 



SET JED 
INDICATOR 



I-E3- 



SET R J START 

INDICATOR 



,-F3 

SET RJEND, 
STOP CARD 
READER AND 
TIME FOR EOT 
INDICATORS 



CH21S 



■c 



RETURN 



J 




CH260 
■*( RETURN 



J 
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Chart LA. (RJTRP) Read Point-to-Point 
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Chart LB. (RJTRM) Read Multipoint 



RJTRM 

-A 



( ENTER ^ 



WSCAT RAA1 



WAIT FOR 
COMPLETION OF 
LINE OPERATION 



RAC3 




/ E ° T \ 
<f RECEIVED \ 

X^FROM THE/ 



CENTRAL 
NO 



TR020 
_EI. 



START AND END 
ADDRESS OF THE 
DATA TO THE 
POINTERS BLCKS 
AND BLCKE 




TR050 
-HI- 



CHANGE CURRENT 
BUFFER POINTER 



READ 
i CONTINUE 



PROCESS LAST 
LINE BUFFER 



tf LNERR J 



FDG3 




r-E3 

SET £NDUE 
INDICATOR AND 
SET ACC 
NON-ZERO 




PROCESS 
HEADING 




YES 



-F4 

SET ENDUE 
INDICATOR AND\ 
SET ACC NOT- 
ZERO 



UEXIT 



USER ROUTINE 
OR DISK OUTPUT 



TROIO 
-H5 



( RETURN ) 
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Chart MA. (RJHDR) Heading Processing 



RJHDR 
-A2- 



c 



LAG2 
LBF2 



ENTER 



J 



-B2- 

CONVERT DEVICE 
ID TO BINARY 
VALUE AND STORE 
IN RJLON 




-C4 

SET CARD 
READER STOP 
AND HEADING 
"5" INDICATORS 
/ 



r D2 

CONVERT 
CONTROL 
CHARACTER ID TO 
BINARY VALUE 
AND STORE IN 
RJLON 




I-E3- 



SET CONTROL 
CHARACTER ID TO 
ZERO 



CONVERT RECORD 
FORMAT ID TO 
BINARY VALUE 
AND STORE 
IN RJLON 




SELECT PRINTER AS 
DEVICE WITH 
RECORD LENGTH = 
120 CHARACTERS 



c 



D 
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Chart NA. (RJOUT) Output Device Switch 



RJOUT 

_A1. 



c 



UK4 
LBK1 



j> 
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Chart OA. (PRNTR) Printer Output 
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Chart PA. (RJRP1) Punch Output, 1442-6, -7 



c 



SET STOP 
CARD READER 
INDICATOR 




SET LRECL' 
LRECL -1 



-E2- 



RESET SAVED 

JED/JOB 

INDICATOR 



PRINT "PUNR" 
IF PUNCH IS NOT 
READY 



\READ ONE CARD/ 
AND WAIT FOR 
COMPLETION 

w 




RJMSG 



SAA1 



WRITE MESSAGE 
AND WAIT FOR 
REPLY 




RD530 

A3 'ANY X 
/ CONTROL \ YES 
\CHARACTERS . 



r A4 

INCREASE INPUT 
ADDRESS FOR 
CONVERSION TO 
SKIP CONTROL 
CHARACTER 



WAIT FOR 
COMPLETION OF 
PREVIOUS PUNCH 
OPERATION 



-C3- 



CONVERTA 
LOGICAL RECORD 
FROM EBCDIC TO 
IBM CARD CODE 



c 



PAFI 
PAD3 



RD700 



PAC4 



PRINT "PU NR" 
IF PUNCH IS NOT 
READY 



PAE4 




ISSUE message/ 
"PU NR" TO / 
->\ OPERATOR / 



\PUNCH A CARD/ 



c 







F4 
^S STACKER 2 
^ . WANTED 



D 




SELECT STACKER 2 



UPDATE INPUT 
POINTER 



H3 -"ANYX^ 

' CONTROL^ 


-v YES 




_H4 

ADJUST INPUT 


CHARACTERS/ 






POINTER 




NO 








' 


' 












SBK5 
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Chart PB. (RJRP2) Punch Output, 1442-5 
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Chart QA. 



(UEXIT) User-exit Routine 



LAG5 LBF5 
LAK2 NAC3 
LBE4 NAH5 



c 



J 



"YES 





SETMSGE "DATA 
XXXX X X TO 
DISK AT XXXX" 



SET TYPEO BUSY 
INDICATOR 



I— HI 

WTYPE 




WAIT FOR 

CONSOLE-PRINTERf 1 
OPERATION TO 
COMPLETE 



UE000 1 
i- -11 '— 



SET END OF 
USER-EXIT DATA \ 
AND 
DISCONTINUE 
INDICATORS 



SET 

MESSAGE 
CODE = 12 




UE050 
I-E2 - 



PACK AND MOVE 
TWO CHARACTERS 
FROM LINE BUFFER 
TO DISK BUFFER 




LESS THAN 
NO TWO CHARACTERS 
— <\. LEFT INTHE/* 

LINEBUFFfR 




< CHARACTER 



UEIOO 
-J2- 



SAVE XR3 AND 
RESTORE 

ORIGINAL VALUE 
OFXR3 




-C3- 



SET 

DISCONTINUE 

INDICATOR 



SET MESSAGE 
CODE =12 



MOVE ONE 
CHARACTER 



UE300 
,-F3_ 



QBB5 



WRITE ONE 
SECTOR 
ON DISK 



QBE5 




V 7 

^ UPDATE SECTOR 
ADDRESS AND 
BLOCK NUMBER 

n 



MOVE LAST 
CHARACTER 



c 
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Chart QB. (UEXIT) User-exit Routine 



SET DISCONTINUE) 
INDICATOR 



SET MESSAGE 
CODE =11 



SET USER-EXIT 
END INDICATOR , 



RESET INTERNAL 
INDICATORS 



UPDATE SECTOR 
ADDRESS 




NO 


CALCULATE 
NUMBER OF DISK 
BLOCKS IN LAST 
LINE BUFFER 


P3 " 


CALCULATE WORD 
COUNT IN DISK 
AREA 


_E3 ' 


' 


UE500 QBB5 


WRITE LAST 
BUFFER 


' 


QBE5 




UE500 
,B5 



QAF3 
QBE3 



C ENTER J 



■ C5- 



MOVE SECTOR 
ADDRESS OF USER 
AREA TO I/O 
AREA 



WRITE ONE 
SECTOR ON DISK 



c 



D 
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Chart RA. (RJLOn) Miscellaneous Subroutines 



DBC2 EHFI LAD1 
DCG2 EHF3 LBB1 
WSCAT ECD5 FBB1 CLOSE 

EDF1 FDB1 
EDF3 LAB2 



c 



ENTER 



Bl. 



WAIT FOR 
COMPLETION OF 
LINE OPERATION 



c 



EGE4 
SBD3 
UAB3 



QAHI 
RAC3 



3 C 



J 



CLOSE THE 
UINE 



J C 



RETURN 



D 



WAIT FOR 
COMPLETION OF 
TYPE OP 



ENTER J 


■M " 


WAIT FOR 
COMPLETION OF 
TYPE OPERATION 


^C4 " 



RESET 

TYPEO BUSY 
INDICATOR 



c 



D 
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Chart RB. (RWDSK) Read/Write Disk 



DAC4 

DCC4 

JAB2 

RWDSK SAD) 

QBD5 



c 



ENTER 



j> 



SAVE CALLING 
SEQUENCE 



-C2- 

INSERT BRANCH ' 
ADDRESS IN 
ERROR TRAP FOR 
LEVEL 2 



RESTORE CALLING 
SEQUENCE 



READ/WRITE 
\DISK 



S ERROR IN \ YES 
\ DISK /~~ 
OPERATION 



r G2- 



WAIT FOR 
COMPLETIONOF 
DISK OPERATION 



RESTORE LEVEL 2 
SOFT ERROR TRAP/ 



, — 12- 

SET ACC NOT 
ZERO TO 
INDICATE 
CORRECT 

OPERATION 



RESTORE INDEX 
REGISTERS 
1 AND 3 



RESTORE LEVEL 2 \ 
SOFT ERROR TRAP/ 






RESET DBSY 
INDICATOR 



-J3- 

SET ACC ZERO 
TO INDICATE 
ERRONEOUS 

OPERATION 



c 
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Chart SA. (RJMSG) Message Routine 




DAF4 DCG1 ECH1 EFF3 KAD5 
DAJ4 DCH4 EEG3 EFKI PAK1 
DBA4 EAD5 EEH1 FBK3 
DBD4 EBH5 EFH5 FDK3 
DCF4 ECB2 EFC4 IAF4 



READ IN 
RJCON FROM 
.DISK 




FIND THE 
CORRECT 
MESSAGE IN 
THE DISK 
BUFFER 



MSOIO 
r Gl 



ISSUE THE FOUND 
MESSAGE TO THE 
OPERATOR 



c 



\ ISSUE MESSAGE 
TO OPERATOR 
"J54 DISC ERROR 
OCR=K" 

\ . / 





MS 040 
r-G5- 



SET ACC 
NON-ZERO TO 
INDICATE THAT A/ 
DUMP IS WANTED 



c 



J 



NEW LINE ON 

CONSOLE 

PRINTER 

RAt>3 



D 
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Chart SB. (RJMSG) Message Routine 



MSG CODE =3 



MSG CODE = 8 



MSG CODE = 2,4-7 



MSG CODE - 9 




MSG CODE= 10-12 



MSG CODE - 13 



MS060 
-A2- 



READ 
OPERATOR REPLY 



MS250 
-B2- 



NEW LINE ON 
CONSOLE PRINTER 



READ 
OPERATOR REPLY 




MS 1 00 
-F2- 



READ 
OPERATOR REPLY 



SAK2 




<^ REPLY=C J>-! 
YES 




•K4 

RESET SVCRD, 
DDATA, JEDCD 
DSKIN AND SET 
TMEOTAND 
STOPR 
INDICATORS 



S300 I 

,_J5 I_ 



SET MESSAGE 
COD6 J 




c 
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Chart TA. (RJREQ) Operator Request Routine 



THIS ROUTINE IS AN INTERRUPT ROUTINE ON 
LEVEL 5, THAT IS ENTERED WHEN PROGRAM 
STOP KEY IS PRESSED 
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Chart UA. 



(RJFIN) Termination Routine 
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Card Input Subroutine (see: CRDRD) 
Card Reader Error 17,18 
Card Reader Stop Indicator (see: STOPR) 
Check Subroutine (see: RJCHK) 
CLOSE Subroutine 

Detailed Description 25 

External Subroutine 18,2 4,26 
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Closedown of System 12,21,25 
CNTRL Subroutine 

Detailed Description 17-18 

External Subroutine 19,20 

Mentioned 10,11,12,16,19,20,21,2 3 
Communications Adapter (see: SCA) 
Communication Startup Subroutine (see: 
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Console-keyboard Input Subroutine 

(see: RJKBD) 
Controlling Subroutine (see: CNTRL) 
Control Characters 11,12,2 2 
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CRDRD Subroutine 

Detailed Description 19 

Mentioned 10,18,20,22 
Cyclic Redundancy Check 9 

DAREA (buffer) 15 

.. DATA Command 11,20 
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DCOM 15 

DIRECTOR 10,17,23,25,27 

Discontinue Output Indicator (see: DSCON) 

Disk Error 12,15,17,18,20 

Disk Input Indicator (see: DSKIN) 

Disk Input Subroutine (see: RJDSK) 

Disk Monitor Supervisor 13,15,16,24,25,26 

Disk Monitor System, Version 2 7 

Disk Output Subroutine (see: UEXIT) 

DISKZ 10 

DLE/EOT 12,21 

DSCON Indicator 12,17,18,21,23,25 

DSKIN (buffer) 11,24 



End-of-line Operation Subroutine (see: 

CLOSE) 
End-of-console Printer Operation Subroutine 

(see: NLTYP) 
End-of-file Indicator 11,20,22 
ENQ 11,17 
EOF 12,20 

EOT 11,12,17,18,19,20,21 
Extension (EXT) 20,23 
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Header Processing Subroutine (see: RJHpR) 
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JED Card 11,16,20 
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PUNCH Subroutine 

Detailed Description 22 
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Receiving Subroutine (see: READ) 
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Detailed Description 20 
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Detailed Description 13 
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RJFIN Subroutine 

Detailed Description 26 

Error Exit 19,22,25 

Mentioned 10,21,24,25 

Normal Exit 18,21,25 
RJHDR Subroutine 

Detailed Description 21 

Mentioned 10,12 
RJINP Subroutine 

Detailed Description 19 
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RJKBD Subroutine 

Detailed Description 19,20 
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Detailed Description 16 
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25 
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Detailed Description 24,25 
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External Subroutine 16,18,20,22 
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Detailed Description 21,22 

Mentioned 10 
RJQST Mainline Program 

Detailed Description 15 

Mentioned 9,12 
RJREQ Subroutine 

Detailed Description 25 

Mentioned 10,12,16 
RJSTART Command 11,16,20,21 
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RJTB2 (buffer) 
RJTB3 (buffer) 
RJTB4 (buffer) 
RP900 (buffer) 
RWDSK Subroutine 

Detailed Description 23,24 

External Subroutine 16,20 

Mentioned 10 

SCA (Synchronous Communications Adapter) 

7,9,18,23,24,25,26 
SCAT2 9 
SCAT 3 9 

Service Subroutines 2 3 
Slow Input Mode 12,16,18,20,35 
SPDUT (work area) 13 
STOPR Indicator 24,25 
Storage Requirements 7,37 
Switch 22 
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Termination Subroutine (see: RJFIN) 
Timeout 11,18,20 
TMEOT Indicator 17,20,24 
Transfer Vector Table 16 
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Transmit Subroutine (see: WRITE) 
TYPE0 Subroutine 10,25 

UEXIT Subroutine 

Detailed Description 22,23 

Mentioned 10,12,16,21 
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User-written Subroutine 12 

Wait for Completion of Line Operation 

Subroutine (see: WSCAT) 
WRITE Subroutine 

Detailed Description 
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IBM 1 130 Remote Job Entry Work Station Program Y30-1001-0 

Program Logic Manual 



Your comments, accompanied by answers to the following questions, help us produce better 
publications for your use. If your answer to a question is "No" or requires qualification, 
please explain in the space provided below. All comments will be handled on a non-confi- 
dential basis. Copies of this and other IBM publications can be obtained through IBM 
Branch Offices. 

Yes No 

Does this publication meet your needs? I I I 1 

Did you find the material : 

Easy to read and understand? I I I 1 

Organized for convenient use? I 1 i 1 

Complete ? I 1 I 1 

Well illustrated? I 1 I 1 

Written for your technical level? I I I I 

What is your occupation? ___ 

How do you use this publication? 

As an introduction to the subject? I I As an instructor in a class? I 1 

For advanced knowledge of the subject? I I As a student in a class? I 1 

For information about operating procedures? I I As a reference manual? I 1 

Other 



Please give specific page and line references with your comments when appropriate. 



COMMENTS: 



• Thank you for your cooperation. No postage necessary if mailed in the U. S. A. 
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better publications for your use. Each reply is carefully reviewed by the persons 
responsible for writing and publishing this material. All comments and sugges- 
tions become the property of IBM. 

Please note: Requests for copies of publications and for assistance in using your 
IBM system should be directed to your IBM representative or to the IBM sales 
office serving your locality. 
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